mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-07 19:51:51 +09:00
5 lines
195 B
QBasic
5 lines
195 B
QBasic
10 QSORT=[XS]~>IF LEN(XS)<1 THEN NIL ELSE QSORT(FILTER([X]~>X<HEAD XS,TAIL XS)) # HEAD(XS)!NIL # QSORT(FILTER([X]~>X>=HEAD XS,TAIL XS))
|
|
100 L=7!9!4!5!2!3!1!8!6!NIL
|
|
110 PRINT L
|
|
120 PRINT QSORT(L)
|