Alô pessoal. On Thu, 30 Apr 2009 00:36:22 -0700 (PDT) namekuseijin <[email protected]> wrote:
> Muito bom e exaustivo por sinal Passando os olhos rapidamente, não vi algumas possibilidades de cálculo de fatorial bem simples com Lisp (usando 10! nos exemplos e Chicken Scheme -- http://www.call-with-current-continuation.org). O fatorial de 10 é (* 10 9 8 7 6 5 4 3 2): $ cat eval-fact.scm #! /usr/bin/csi -s (use numbers srfi-1) (print (eval `(* . ,(iota 10 1)))) $ ./eval-fact.scm 3628800 Chicken possui uma limitação quanto ao número de argumentos que procedimentos podem receber (normalmente 1000). Assim, para fatorial de números maiores que 1000 essa estratégia não funciona. Mas pode-ser usar `reduce': $ cat reduce-fact.scm #!/usr/bin/csi -s (use numbers srfi-1) (print (reduce * '() (iota 10 1))) $ ./reduce-fact.scm 3628800 Ou, ainda (apelando para a malandragem), fazendo parte do trabalho em tempo de compilação. :-) $ cat macro-fact.scm #!/usr/bin/csi -script (use numbers srfi-1) (define-macro (fact n) `,(reduce * '() (iota n 1))) (print (fact 10)) $ ./macro-fact.scm 3628800 Um abraço. Mario --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "Lisp-br" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/lisp-br?hl=en -~----------~----~----~----~------~----~------~--~---
