История изменений
Исправление
dave,
(текущая версия)
:
А, вообще, вот, что у меня получилось:
import System.Environment
myPerms :: String -> [String]
myPerms [] = [[]]
myPerms (x : xs) = [y : ys | y <- [x .. 'z'], ys <- myPerms xs]
main =
do [s] <- getArgs
print $ length (myPerms s)
Исходная версия
dave,
:
А, вообще, вот, что у меня получилось: