Gaucheでバブルソート

FizzBuzzしたし,とりあえずソーティングでもやってみるか~と思ってバブルソートしてみた.

ら,鬼のようにむずかった(涙

Gauche1日目にして無茶した.

注:このプログラムは間違えています.

#!/usr/bin/env gosh
(define bsort-swap
(lambda (x lst)
(if (pair? lst)
(if (< x (car lst))
(append (list x) lst)
(append (list (car lst)) (bsort-swap x (cdr lst)))
)
(list x)
)
)
)
(define bsort
(lambda (lstdata)
(if (pair? lstdata)
(append
(list (car (bsort-swap (car lstdata) (cdr lstdata))))
(bsort (cdr (bsort-swap (car lstdata) (cdr lstdata))))
)
lstdata
)
)
)
(define (main args)
(let ((inputlist `(9 0 1 8 2 7 3 6 4 5)))
(print inputlist)
(print (bsort inputlist))
)
)

こんなんでいいのかな?もっとうまく書けそうな気もするが.まあいいか.初日だし.

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です