Mais um blog inútil.

Abril 8, 2009

Arvorezinha em HASKELL

Filed under: Arvorezinha,Coding,Useless — madinfo @ 11:43

Pois bem, depois de seguir atentamente os posts do falso com coisas completamente inúteis... Resolvi fazer a arvore em HASKELL.

Sem mais demoras aqui fica:

-- THIS HASKELL CODE CAN NEVER FAIL

module Main where

main = do putStr (unlines (take 5 (iterate('*':) "*")))
              putStrLn "2nd version:"
              putStr . unlines . take 5 . iterate ('*' :) $ "*" -- 2nd version

Como podem ver até é bem simples...

Podem instalar o compilador com:

sudo apt-get install ghc6

sudo apt-get install haskell-mode

Compilar com:

ghc --make -O2 arvore.hs -o arvorehs

Ou mesmo utilizar o prelude que é bem fixe:

ghci

Versão optimizada por Ashes:

arvore n =  (take n (cycle ['*']))
arvorezinha n = putStr (unlines (map arvore [0..n]) )

3 comentários a “Arvorezinha em HASKELL”

  1. mirage diz:

    USELESS

  2. mirage diz:

    also, ruby: (1..5).each do |i| print "*"*i+"\n" end

  3. davi diz:

    @mirage: se vai programar em ruby, seja rubista:

    (1..5).map { |i| puts ?**i }

Comentar

widgeon
widgeon
widgeon
widgeon