mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-12-05 16:18:08 +00:00
Code Issues 1 Releases Wiki Activity

Make suit0 fully functional by adding push functoin to stl

Browse Source
This commit is contained in:
bakpakin
2018-01-14 10:23:24 -05:00
parent f5b29b85ba
commit 9291a4faf0
2 changed files with 21 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
dsttest/suite0.dst
View File

@@ -180,8 +180,7 @@
# Merge sort
(def empty? (fn [xs] (= 0 (length xs))))
# Impertiave merge sort merge
(def merge (fn [xs ys]
(def ret [])
(def xlen (length xs))
@@ -207,6 +206,11 @@
(varset! j (+ j 1)))
ret))
(assert (apply <= (merge [1 3 5] [2 4 6])) "merge sort merge 1")
(assert (apply <= (merge [1 2 3] [4 5 6])) "merge sort merge 2")
(assert (apply <= (merge [1 3 5] [2 4 6 6 6 9])) "merge sort merge 3")
(assert (apply <= (merge '(1 3 5) [2 4 6 6 6 9])) "merge sort merge 4")
# Gensym tests
(assert (not= (gensym) (gensym)) "two gensyms not equal")