年齢の計算

Scheme 30分プログラム

30分プログラム、その713。http://gauc.no-ip.org/awk-users-jp/blis.cgi/DoukakuAWK_246にインスパイアされて、年齢を計算する簡単な式を実装してみます。
Schemeは暗黙に文字列を数値に変換してくれないので、awkやPHPほど簡単な式ではありません。

使い方

# 平成天皇の誕生日
gosh> (age "19331223")
76

ソースコード

#! /opt/local/bin/gosh
;; -*- mode:scheme; coding:utf-8 -*-

(use srfi-19)
(define today (string->number (date->string (current-date) "~Y~m~d")))

(define (age birthday)
  (floor (/ (- today (string->number birthday))
	    10000)))

(age "19331223")

参考