История изменений

Исправление zinfandel, 07.03.15 12:45 (текущая версия) :

На хаскелле (буквально)

main = getName >>= branching

branching myLongNameOfVariable
    | name `elem` "abcdef" = forAllNonDefault >> case myLongNameOfVariable of
        'a' -> forA
        'b' -> forB
        'c' -> forC
        'd' -> forD
        'e' -> forE
        'f' -> forF
branching _ = forDefault

Исходная версия zinfandel, 07.03.15 12:45:

На хаскелле (буквально)

main = getName >>= f

firstBranching myLongNameOfVariable
    | name `elem` "abcdef" = forAllNonDefault >> case myLongNameOfVariable of
        'a' -> forA
        'b' -> forB
        'c' -> forC
        'd' -> forD
        'e' -> forE
        'f' -> forF
firstBranching _ = forDefault