msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

rc #13

Merged
crumbtoo merged 196 commits from dev into main 2024-02-13 13:22:23 -07:00
Conversation 0 Commits 196 Files Changed 55 -10
1 changed files with 0 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 968832bfaf - Show all commits

10
examples/rlp/QuickSort.rl
View File

@@ -26,15 +26,5 @@ qsort l = case l of
list = Cons 9 (Cons 2 (Cons 3 (Cons 2 list = Cons 9 (Cons 2 (Cons 3 (Cons 2
(Cons 5 (Cons 2 (Cons 12 (Cons 89 Nil))))))) (Cons 5 (Cons 2 (Cons 12 (Cons 89 Nil)))))))
list2 = Cons 2 (Cons 3 Nil)
lt :: Int# -> Int# -> Bool
lt a = (>=# a)
gte :: Int# -> Int# -> Bool
gte a = (<# a)
id x = x
main = print# (qsort list) main = print# (qsort list)