Partial function

[lomeo]

Я вот жаловался thesz, что в Haskell нет аналога partial function в Scala, чтобы можно было легко строить конструкции аналогично Erlang'овского receive (я говорю о синтаксисе). Однако механизмы есть. Правда, я нашёл пока только для IO.

import Prelude hiding (catch)
import Control.Exception

e `patternFail` h = e `catch` \(PatternMatchFail _) -> h

apply handlers = \x -> foldl1 patternFail (map ($x) handlers)

-- *Main> apply [\[1]->putStrLn "a", \[2]->putStrLn "b", \[3]->putStrLn "c"] [2]
-- b

Список здесь всего лишь пример, можно сделать и по другому (varargs?)

Comments

Re: Даешь в месяц по контесту

[dimiii.livejournal.com]

>>Портеровский стеммер - это кажется вообще моя первая программа на Хаскеле.
Ах вот что - стеммер у тебя для английского. Я тогда просто обратил внимание на автора и почему - то решил, что это реализация для русского языка. Рускоязычный я пробовал - слишком много overstemming´а.