NepřihlášenKSP fórum
Fórum Hlavní stránka Nápověda Hledat Přihlásit
Nahoru Téma KSP / CodEx / 27-4-6 v Haskellu
- Od wave Dne 17. 04. 2015 21:50 Upraveno 18. 04. 2015 10:36
Jen pro zajímavost - 27-4-6 se dala velmi elegantně vyřešit v Haskellu, který Codex naneštěstí nepodporuje :( Je to 9 řádků kódu.

import Data.List

solve x = map reverse (sortBy sortHanoi (map reverse lst))

sortHanoi a b = sh a b 'A' 'C' 'B'
sh [] [] _ __ ___          = LT
sh (a:ax) (b:bx) s y e
  |and [a==b, a==s]   = sh ax bx s e y
  |a==b                     = sh ax bx y s e
  |a==s                     = LT
  |otherwise                = GT
 
--priklad pouziti
t = solve ["CCA","ACB","CCB","BCA","ABB","BAA","AAA","BBB"]
Nahoru Téma KSP / CodEx / 27-4-6 v Haskellu

Powered by mwForum 2.29.7 © 1999-2015 Markus Wichitill