さっきのやつを修正した．今回はちゃんと動いているぽい． #!/usr/bin/env gosh (define (selectsort listdata) (define (exceptmax lst) (if (pair? lst) (if (= (fold max -1 lst) (car lst)) (cdr lst) (append (list (car lst)) (exceptmax (cdr lst))) …

さっきまでのプログラムをよく見たら（別データで試したら）全然ソーティングできてなかった（恥 というかめちゃくちゃだった． 直します…．

注：このプログラムは間違えています． 昨日のBubbleSortをもうちょっと修正． letを使って複数出てくる(bsort-swap (car lstdata) (cdr lstdata))をまとめた． #!/usr/bin/env gosh (define (bsort lstdata) (define (bsort-swap x lst) (if (pair? lst) (i…