04. februar 2002 - 12:35Der er
3 kommentarer og 1 løsning
Optimering af function
Jeg har denne funktion som virker, men jeg har på fornemmelsen at den kan laves på en smart måde: Noget med xor eller sådan noget og fylder kun en linie men hvordan
function SkiftPind(FraPind, TilPind: Byte): Byte; begin if (FraPind = 1) and (TilPind = 2) then Result := 3; if (FraPind = 1) and (TilPind = 3) then Result := 2; if (FraPind = 2) and (TilPind = 1) then Result := 3; if (FraPind = 2) and (TilPind = 3) then Result := 1; if (FraPind = 3) and (TilPind = 1) then Result := 2; if (FraPind = 3) and (TilPind = 2) then Result := 1; end;
Mange års erfaring i programmering af og undervisning i Hanois tårne. Men ellers kan man jo se det i dit program: alle 3 tal i hver af dine if-er summerer jo til 6.
Det er netop til hanois tårn :) og det virker faktisk. Det er overraskende simpelt at lave. Tja det med at alle mine if-er summer til 6 havde jeg ikke lige tænkt, men sådan er der sikkert nole huller når man er autodidakt (eller hvordan det nu staves)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
