Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/guile -e main -s
- !#
- (define (main args)
- (map (lambda (arg) (display arg) (display " "))
- (cdr args))
- (newline))
- (define loop
- (lambda(x y)
- (if (<= x y)
- (begin (display x) (display #\space) (set! x (+ x 1))
- (loop x y)))))
Add Comment
Please, Sign In to add comment