Hatena::ブログ(Diary)

計算機と戯れる日々 このページをアンテナに追加 RSSフィード

2007-12-14

GHCiやめた記念:qsortをmainでやってみる

import List
main=print a

a=qsort [3,2,1,4,1,2]

qsort [] = []
--qsort (x:xs) = qsort [y|y<-xs,y<x] ++ [x] ++ qsort [y|y<-xs,y>=x]
qsort (x:xs) = qsort l ++ [x] ++ qsort r where (l,r)=partition (< x) xs

結果

*Main> main
[1,1,2,2,3,4]
*Main> 

emacs入れて良かった。

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証

トラックバック - http://d.hatena.ne.jp/n9d/20071214/1197597374
Connection: close