File: prim.scm

package info (click to toggle)
elk 3.99.8-2
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 5,004 kB
  • sloc: ansic: 22,294; lisp: 6,208; makefile: 821; sh: 171; awk: 154; cpp: 92
file content (14 lines) | stat: -rw-r--r-- 230 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
;;; -*-Scheme-*-

(define (p n)
  (let f ((n n) (i 2))
    (cond
     ((> i n) '())
     ((integer? (/ n i))
      (cons i (f (/ n i) i)))
     (else
      (f n (+ i 1))))))

(print (p 12))
(print (p 3628800))
(print (p 4194304))