2009-04-05から1日間の記事一覧
-module(qsort). -import(lists, [append/2]). -export([qsort/1]). qsort([])-> []; qsort([First|Rest])-> append([X || X <- qsort(Rest), X < First], append([First], [X || X <- qsort(Rest), X > First])).
-module(qsort). -import(lists, [append/2]). -export([qsort/1]). qsort([])-> []; qsort([First|Rest])-> append([X || X <- qsort(Rest), X < First], append([First], [X || X <- qsort(Rest), X > First])).
