linux user group brescia

On Mon, Oct 24, 2005 at 12:05:36PM +0200, Bauno wrote:
>[...]
> #include <iostream>
> using namespace std;
> 
> void recurse(int i) {
>[...]

Se andiamo sul ricorsivo ecco la versione in "scheme" (lisp):

(define (sugiu m n)
  (if
    (= n m) (write m) (begin (write m) (sugiu (+ m 1) n) (write m) )
  )
)

(sugiu 1 20)


--------------
nota: preferivo usare il "cond" invece che l'"if", ma per qualche
strana ragione nella versione di umb-scheme che mi trovo installata
il "cond" non funziona piu' :-(