Arvorezinha – LISP take 2
Oi!
Segundo a LISP Police, vim a saber que a primeira arvorezinha em LISP do _Lone_Wolf_ não cumpria os standards definidos pelo rfc da arvorezinha, e ele para não sofrer as consequências redimiu-se com uma versão totalmente standard. Aqui vai ela:
i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.47 (2008-10-23) <http://clisp.cons.org/> Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 Copyright (c) Bruno Haible, Sam Steingold 1999-2000 Copyright (c) Sam Steingold, Bruno Haible 2001-2008 Type :h and hit Enter for context help. [1]> (loop (loop for i from 1 to 4 do (loop for j from 1 to i do (write-char #\*) ) (terpri) ) (return '*****) ) * ** *** **** *****
Mesmo assim ainda não gostei de ter a ultima linha hardcoded, mas foi a unica forma de funcionar de acordo com o RFC da arvorezinha, se tiver tempo(e paciencia) ainda tento melhorar.
mais um fail, mas com ligeiro win pelo candelabro judeu no blol