Name:
Anonymous
2012-03-08 17:19
$aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaacaaaaaa
aaaaaaaaaaaaaaaaaaaaaaacaaaaaaaccaaacbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
bbbbbbbbbbbbbbbbbbbbbbbbcbbbbbbbbbbbbcaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaacaaaaaaaaaaaaaaaaaaaaaaaacaaacbbbbbbcbbbbbbbbcbbbbbbbbbbbbbbbbbbbbb
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbc
Name:
Anonymous
2012-03-09 16:01
runABC "" = []
runABC ('a':xs) = map succ $ runABC xs
runABC ('b':xs) = map pred $ runABC xs
runABC ('c':xs) = 0 : runABC xs
main = interact (show . runABC)