λO
Size: a a a
λO
AI
Y
Aq
import Data.List
data ЭтоЗверюшка = ЭтоЗверюшка {
погладить :: IO (),
числоНог :: Int
}
котик = ЭтоЗверюшка {
погладить = putStrLn "мурр",
числоНог = 4
}
пёсик возраст = ЭтоЗверюшка {
погладить = putStrLn $ intercalate "-" $ replicate возраст "гав",
числоНог = 4
}
main = mapM_ погладить [пёсик 1, котик, пёсик 3]
Aq
Aq
AI
AI
AI
Aq
VM
AI
Aq
AI
AI
Aq
AI