プログラムに、計算式とかせるのが結構好き。

;;素数？
(define (prime? x)
  (define (prime-iter x n)
	(if (equal? n x)							;;比べる数と元の数が一緒なら素数
		#t
		(if (equal? (mod x n) 0)		　　;;割り切れる数が見つかったならそれは非素数
			#f
			(prime-iter x (+ n 1)))))		;;どちらでもなかったら、比べる数を1増やしてもう一回
  (prime-iter x 2))						;;比べる数は2スタート。

素数判定プログラム、一番原始的な版。

間違えてたので多分正しいのを。modとかねえ。ついでに中のiterの引数を一個減らす。

;;素数？
(define (prime? x)
  (define (prime-iter n)
	(if (equal? n x)											;;比べる数と元の数が一緒なら素数
		#t
		(if (equal? (remainder x n) 0)			;;割り切れる数が見つかったならそれは非素数
			#f
			(prime-iter (+ n 1)))))				;;どちらでもなかったら、比べる数を1増やしてもう一回
  (prime-iter 2))								;;比べる数は2スタート。