2009-01-30から1日間の記事一覧

JOI2008予選 問題2@Scheme

今日はここまで。文字列処理むずい。 (define (count-substring str sub) (define (count-substring-sub2 strl subl count) (if (null? subl) (+ count 1) (if (null? strl) count (if (char=? (car strl) (car subl)) (count-substring-sub2 (cdr strl) (cd…

JOI2008予選 問題1@Scheme

関数型にも興味があって、HaskellとSchemeでどっち先にやろうか迷ってたんだけど、Schemeを先にやることにした。 (define (solve price clist count) (if (null? clist) count (if (>= price (car clist)) (solve (- price (car clist)) clist (+ count 1)) …