mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-12 14:11:50 +09:00
9 lines
383 B
QBasic
9 lines
383 B
QBasic
1 REM qsort [] = []
|
|
2 REM qsort xs = qsort [x | x<-tail xs, x<head xs] ++ [head xs] ++ qsort [x | x<-tail xs, x>=head xs]
|
|
10 DEFUN LESS(P,X)=X<P
|
|
11 DEFUN GTEQ(P,X)=X>=P
|
|
12 DEFUN QSORT(XS)=IF LEN(XS)<1 THEN NIL ELSE QSORT(FILTER(CURRY(LESS,HEAD XS),TAIL XS)) # HEAD(XS)!NIL # QSORT(FILTER(CURRY(GTEQ,HEAD XS),TAIL XS))
|
|
100 L=7!9!4!5!2!3!1!8!6!NIL
|
|
110 SL=QSORT(L)
|
|
120 PRINT L:PRINT SL
|