トップ «前の日記(2017-07-18(Tue)) 最新次の日記(2017-07-20(Thu))» 編集

屑俺日記

僕の備忘録(PC、UN*X、ネットワーク関連が中心)なんです。
自分の書いたところは適当(な時とか)に書き換えますので御了承を。

2017-07-19(Wed) 雨が降ったりやんだり、は昨日なのだけど

☆ 年齢算なんとなくschemeで

親の年齢 = 子の年齢 * 2 がそれぞれ何歳で、何年前か後かを返すようにしてみた。
何年前か、を追加したので、若干重複しているようにも見えた。

(define p_twice_c
  (lambda (p c y)
    (cond
     ((= p (* c 2))
      (cons p
            (cons c
                  (cons y '()))))
     (else
      (cond
       ((< p (* c 2))
        (p_twice_c (- p 1)
                   (- c 1)
                   (- y 1)))
       (else
        (p_twice_c (+ p 1)
                   (+ c 1)
                   (+ y 1) )))))))

gosh> (p_twice_c 27 6 0)
(42 21 15)
 
gosh> (p_twice_c 80 47 0)
(66 33 -14)

[ツッコミを入れる]

リンクはご自由にどうぞ。でもURLや内容が変った場合はあしからず。

index.htmlはここから。