On Feb 11, 10:39 am, Jakub Owczarski <j...@g...com>
wrote:
> On Feb 11, 10:15 am, Andrzej Jarzabek <a...@g...com>
> wrote:
>
> Wiem, że to jest zwykła rekurencja, i bardzo chciałbym zobaczyć jak da
> się to przerobić, żeby była ogonowa :)
>
> Wiem, że F# nie jest jakiś super popularny, ale może ktoś zna OCamla,
> podobno są bardzo zbliżone.

Nie znam też zbytnio OCamla, więc nie bij jak coś jest nie tak ze
składnią, ale intencja mam nadzieję będzie czytelna:
let insertSort l =
let rec iter_sort sorted unsorted =
let rec insert lst_less elem lst_rest =
match lst_rest with
| [] -> lst_less:elem
| head::tail -> if head<elem then
insert lst_less:head elem tail
else lst_less::elem::lst_rest
match unsorted with
| [] -> sorted
| head::tail iter_sort (insert [] head sorted) tail
iter_sort [] l

Ogólnie jeśli chodzi o tego typu problemy problemy, to przeczytaj
http://mitpress.mit.edu/sicp/full-text/book/book-Z-H
-11.html#%_sec_1.2.1

W ogóle polecam całą tę książkę jak się chce nauczyć technik
programowania funkcyjnego.