Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Hanoi solver
--ghc 8.0.1 /opt/ghc/8.0.1/lib/ghc-8.0.0.20160127/ main = do print $ hanoi 5 "a" "b" "c" type Peg = String type Move = (Peg, Peg) hanoi :: Integer -> Peg -> Peg -> Peg -> [Move] hanoi 0 _ _ _ = [] hanoi 1 a b c = [(a,c)] hanoi n a c b = hanoi (n-1) a b c ++ [(a,b)] ++ hanoi (n-1) c a b
run
|
edit
|
history
|
help
0
hard 1.1
Métodos simples
FizzBuzzkell
Reader
mySqrt
Znajdz trójkąty prostokątne
Goodstein sequences
New wall
Factors of a number, prime numbers
State