scheme(gauche)で世界のナベアツ問題 - yppp’s diary3がつく数と3の倍数の時だけアホになる(片仮名になる)それ以外は普通に数字を表示 peercastの大会で課題だったので、っていうか就活の課題やれ俺www (use srfi-1) (use srfi-13) (define (unpack x y) (if (= x 0) y (unpack (quotient x 10) (append (list (modulo x 10)) y)))) (define (3baisu? x) (= (modulo x 3) 0)) (define (3gatuku? x) (any (lambda (i) (= i 3)) (unpack x '()))) (define (senkurai x) "ｾﾝ") (define (hyakukurai x) (ref '( "" "ﾋｬｸ" "ﾆﾋｬｸ" "ｻﾝﾋﾞｬｸ" "ﾖﾝﾋｬｸ" "ｺﾞﾋｬ
