Loading [MathJax]/extensions/tex2jax.js

2010年7月20日火曜日

Determine the prime factors of a given positive integer (2)

;; P36 (**) Determine the prime factors of a given positive integer (2).
;; Construct a list containing the prime factors and their multiplicity.
;; Example:
;; * (prime-factors-mult 315)
;; ((3 2) (5 1) (7 1))
;; Hint: The problem is similar to problem P13.
#lang racket
(provide prime-factors-mult)
(require "p10.ss")
(require "p35.ss")
(define (prime-factors-mult n)
(map reverse (encode (prime-factors n))))
view raw p36.ss hosted with ❤ by GitHub

0 件のコメント:

コメントを投稿