Shibuya.lisp の発表で少し触れた、英単語覚えるスクリプトを改善した。毎日使っていて単語量が増えたので誤り回数が多い物順に出題する事にした。 (import (rnrs) (mosh control) (mosh) (match) (mosh file) (srfi :8) (only (srfi :1) first second)) (define (sort-word-spec* word-spec*) (list-sort (match-lambda* [((_a _b ok-count1 ng-count1) (_c _d ok-count2 ng-count2)) (> (- ng-count1 ok-count1) (- ng-count2 ok-count2))]) ;; normalization (map (match-lambda [(word meaning