← All posts tagged Haskell

AlexPir
Haskell Накатал таки ёлочку бесточечно:
pineTree = unlines . zipWith (flip (++)) (zipWith take [1,3..] (repeat (repeat '*'))) . zipWith (flip take) (repeat (repeat ' ')) . reverse . flip ($) [1,2..] . take
Теперь этим можно пугать