aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Sorting-algorithms-Merge-sort/Binary-Lambda-Calculus/sorting-algorithms-merge-sort.blc Normal file
View file

@ -0,0 +1,19 @@
(let ((fixpoint-combinator
(lambda (g)
(let ((inner (lambda (x) (g (x x)))))
(inner inner))))
(sortmerge (lambda (list pred x)
(list
(fixpoint-combinator
(lambda (recur head tail x)
((pred head (x t))
;; these (lambda (p) ...) are inlined cons calls
(lambda (p) (p head (tail recur x)))
(lambda (p) (p (x t) (lambda (p) (p head tail)))))))
(lambda (p) (p x nil))))))
(lambda (pred list)
(list
(fixpoint-combinator
(lambda (recur head tail z)
(sortmerge (tail recur z) pred head)))
nil)))