組み合わせパズルなんかを解くときに楽。かもpermutations-any,permutations*-any。util.combinationsに追加って感じで*1 (define (but-kth lis k) (receive (head tail) (split-at lis k) (append! head (cdr tail)))) (define (any-with-index pred lis1 .…

たまにはコードとか書く!! qsort [] = [] qsort (x:xs) = qsort [y | y <- xs, y < x] ++ [x] ++ qsort [y | y <- xs, y >= x]マジかっこいいです。*1Scheme(Gauche)でクイックソートはこんな感じなんですかね。 (use srfi-1) ; filter (use util.match) (de…