prime-numbers.scm 300 B

12345678910111213141516171819202122
  1. #!/usr/bin/guile -s
  2. !#
  3. (define h (make-hash-table 1))
  4. (let ([f +])
  5. (f 2 3))
  6. (let (list1 '(a b c)) (list2 '(1 2 3))
  7. )
  8. (let* ([a 1] [b 2] [c (* 3 a)] [d (- c b)])
  9. (+ d d))
  10. (let ([a 1] [b 2])
  11. (+ (- (* 3 a) b) (+ (* 3 a) b)))
  12. (let* ([a 1] [b 2] [c (* 3 a)])
  13. (+ (- c b) (+ c b)))