square_Cont :: Int -> Cont r Int
-- square_Cont x = return (x*x)
square_Cont = return . join (*)
incr_Cont :: Int -> Cont r Int
-- incr_Cont x = return (x+1)
incr_Cont = return . (+1)
func_Cont :: Int -> Cont r Int
{-
func_Cont x = do inc <- incr_Cont x
sq <- square_Cont inc
return sq
-}
func_Cont = (square_Cont =<<) . incr_Cont
> Эта программа вычисляет факториал, и если он оказывается больше 9000, возвращает сообщение «OVER 9000», а если нет, то просто его значение.
Эта программа возвращает строку «OVER 9000» для n > 7, а для остальных n возвращает строку с n!..
foo :: Int -> Cont r String
foo s = do (i, back) <- getCC' s
when (i < 20) $ back (i*2)
return $ show i
Почему нигде не практикуют GENTOO INSTALL FEST? Собирается толпа с техникой, выходит куда-нибудь в чистое поле, природа, красота, там располагается, читает-слушает докладики
СВЕЖЕСТЬ КОМПИЛЯЦИЯ ЕДИНЕНИЕ
Не сочтите за грубость, но убунту и в слепую без рук поставить можно.
Может быть эту новость стоит воспринимать с той стороны, что появился определяющий повод для создания альтернативы ЛастФм? Посмотрим, как скоро появятся подобные проекты.
> Эта программа вычисляет факториал, и если он оказывается больше 9000, возвращает сообщение «OVER 9000», а если нет, то просто его значение.
Эта программа возвращает строку «OVER 9000» для n > 7, а для остальных n возвращает строку с n!..
А зачем тут String?
Что такое getCC' и откуда?
СВЕЖЕСТЬ КОМПИЛЯЦИЯ ЕДИНЕНИЕ
Не сочтите за грубость, но убунту и в слепую без рук поставить можно.
И вы увидите все полезные стороны этого ресурса.
Удачи!
30 песен — это ограничение на количество послушанных с сервера песен.
А вообще, скробблинга вполне хватает. Ей-богу.