Guest User

Untitled

a guest
Oct 8th, 2018
114
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.31 KB | None | 0 0
  1. #!/usr/bin/guile -e main -s
  2. !#
  3.  
  4. (define (main args)
  5.         (map (lambda (arg) (display arg) (display " "))
  6.             (cdr args))
  7.         (newline))
  8.  
  9. (define loop
  10.         (lambda(x y)
  11.         (if (<= x y)
  12.             (begin (display x) (display #\space) (set! x (+ x 1))
  13.                 (loop x y)))))
Add Comment
Please, Sign In to add comment