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 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

87
Task/Sorting-algorithms-Merge-sort/ZED/sorting-algorithms-merge-sort.zed
View file

@ -1,86 +1,107 @@
(append) list1 list2
comment:
=========
#true
(003) "append" list1 list2
(car) pair
comment:
=========
#true
(002) "car" pair
(cadr) pair
=========
#true
(002) "cadr" pair
(cdr) pair
comment:
=========
#true
(002) "cdr" pair
(cddr) pair
=========
#true
(002) "cddr" pair
(cons) one two
comment:
=========
#true
(003) "cons" one two
(list1a) item
=========
#true
(002) "list" item
(map) function list
comment:
=========
#true
(003) "map" function list
(merge) comparator list1 list2
comment:
CONTINUE WITH COLLECT ARGUMENT
#true
(merge1) comparator list1 list2 nil
(merge01) comparator list1 list2 nil
(merge1) comparator list1 list2 collect
comment:
(merge01) comparator list1 list2 collect
LIST2 EXHAUSTED -> MERGED
(null?) list2
(append) (reverse) collect list1
(merge1) comparator list1 list2 collect
comment:
(merge01) comparator list1 list2 collect
LIST1 EXHAUSTED -> MERGED
(null?) list1
(append) (reverse) collect list2
(merge1) comparator list1 list2 collect
comment:
(merge01) comparator list1 list2 collect
TAKE FROM LIST2 (HANDLES ONE CASE)
(003) comparator (car) list2 (car) list1
(merge1) comparator list1 (cdr) list2 (cons) (car) list2 collect
(merge01) comparator
list1
(cdr) list2
(cons) (car) list2 collect
(merge1) comparator list1 list2 collect
comment:
(merge01) comparator list1 list2 collect
TAKE FROM LIST1 (HANDLES TWO CASES)
#true
(merge1) comparator (cdr) list1 list2 (cons) (car) list1 collect
(merge01) comparator
(cdr) list1
list2
(cons) (car) list1 collect
(null?) value
comment:
=========
#true
(002) "null?" value
(reverse) list
comment:
=========
#true
(002) "reverse" list
(sort) comparator jumble
comment:
PREPARE JUMBLE AND PERFORM MERGE PASSES -> EXTRACT
#true
(car) (sort11) comparator (sort1) jumble
(car) (sort02) comparator (sort01) jumble
(sort1) jumble
comment:
(sort01) jumble
PREPARED JUMBLE
#true
(map) "list" jumble
(map) list1a jumble
(sort11) comparator jumble
comment:
(sort02) comparator jumble
WHEN ZERO LISTS THEN NIL
(null?) jumble
nil
(sort11) comparator jumble
comment:
(sort02) comparator jumble
WHEN ONE LIST THEN ALREADY SORTED
(null?) (cdr) jumble
jumble
(sort11) comparator jumble
comment:
(sort02) comparator jumble
REPEATEDLY MERGE ALONG LENGTH
#true
(sort11) comparator
(cons) (merge) comparator (car) jumble (002) "cadr" jumble
(sort11) comparator (002) "cddr" jumble
(sort02) comparator
(cons) (merge) comparator (car) jumble (cadr) jumble
(sort02) comparator (cddr) jumble