/prog/ - Too optimized for you?

Name: Anonymous 2009-11-02 17:04



(define (prime? x)

  (define (inner i)

    (cond ((> i (sqrt x)) #t)

          ((= (remainder x i) 0) #f)

          (else (inner (+ i 1)))))

    (inner 2))



(define (factor x)

  (define (times x i)

    (define (inner x n)

      (if (= (remainder x i) 0)

          (inner (/ x i) (+ n 1))

          n))

      (inner x 0))



  (define (inner x i l)

    (cond ((= 1 x) l)

          ((not (prime? i)) (inner x (+ i 1) l))

          ((not (= (times x i) 0)) (inner (/ x (expt i (times x i))) (+ i 1) (cons (list i (times x i)) l)))

          (else (inner x (+ i 1) l))))

  (inner x 2 '()))



(define (pprint-factor lst)

  (define (inner l)

    (if (null? l) #f

    (begin

      (display (car (car l)))(display "^")(display (cadar l))(display " ")

      (inner (cdr l)))))

  (inner lst))





(display "Enter number to prime factorize:")(newline)

(pprint-factor (factor (read)))

Too optimized for you?

1 Name: Anonymous 2009-11-02 17:04

14 Name: Anonymous 2009-11-03 11:35

Name: Anonymous 2009-11-02 17:04

Name: Anonymous 2009-11-03 11:35