RE: RE: RE: 美人時計の画像ファイルが欲しい

美人時計というすばらしいWebサービスがあります。

1分ごとに美人が表示される素晴らしいアプリですが、悲しい技術者の性。URL分かるんだったら画像取得できるし、Javascirptも読めればprofileも取得できちゃうじゃん！とか思っちゃうわけです。

というわけで、美人時計の画像を根こそぎGETしちゃって、その上なおかつ美人なみなさまのプロフィールまでGETしちゃうプログラムを書きました。

(define (sum term a next b)
  (if (> a b)
      0
      (+ (term a) (sum term (next a) next b))))

(define (inc a) (+ a 1))
(define (identity x) x)
(define (sum-integers a b) (sum identity a inc b))
(define (sum-cubes a b) (sum cube a inc b))
(define (pi-sum a b)
  (define (pi-term x)
    (/ 1.0 (* x (+ x 2))))
  (define (pi-next x)
    (+ x 4))
  (sum pi-term a pi-next b))

(define (integral f a b dx)
  (define (int-term x)
    (* (f (+ x (/ dx 2))) dx))
  (define (int-next x)
    (+ x dx))
  (sum int-term a int-next b))

(define (simpson-integral f a b n)
  (let* ((h (/ (- b a) n))
	 (simpson-next (lambda (x) (+ x (* 2 h)))))
    (* (/ h 3)
       (+ (- (sum (lambda (x) (* 2 (f x))) a simpson-next b) (f a))
	  (- (sum (lambda (x) (* 4 (f x))) (+ a h) simpson-next b) (f b))))))

書きながらさすがにこれはいたずら臭いかな、自重した方がいいかな、とか思ったけど、できちゃったんで公開してみます！Schemeを動かせる環境で試してね！
ダメだったらコメント欄でツッコミよろしくお願いします！