aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-12-27 18:44:55 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-12-27 21:43:17 -0500
commit7989e357179e5e50c05a64b3c9a05a2f08f56694 (patch)
tree34ceaa4f43367b16e7f2de02d8d38f83fd511e79 /test
parente0d8a61bdc1cc15238bc1aa30510c7ee2db4feb8 (diff)
Layer 4 tests
Diffstat (limited to 'test')
-rw-r--r--test/cases/prim.bqn26
1 files changed, 21 insertions, 5 deletions
diff --git a/test/cases/prim.bqn b/test/cases/prim.bqn
index a4ada485..13bb323a 100644
--- a/test/cases/prim.bqn
+++ b/test/cases/prim.bqn
@@ -146,7 +146,8 @@
2(⊣≡⊢´)"a"‿2‿(3‿"d")
7‿10≡+¨´⟨⟨2,3⟩,⟨5,7⟩⟩
! % +´11
-! % -´'a'
+! % -´<'a'
+! % ×´3‿1⥊"abc"
# LAYER 2
⟨⟩≡⟨⟩∾""
@@ -233,11 +234,12 @@
0≡≡⊑⟨-⟩
# LAYER 4
-≡⟜><'a'
-≡⟜><∞
-≡⟜>↕5
-≡⟜>5‿3⥊2
+∧´≡⟜>¨⟨1,<'a',<∞,↕5,5‿3⥊2⟩
2‿3‿2≡≢>↕2‿3
+2‿3≡>⟨<2,3⟩
+! % >↕¨2‿3
+! % >⟨⥊2,3⟩
+! % >(≍≍○<⊢)↕4
((4⥊2)⊸⥊≡(>2‿2⥊·<2‿2⥊⊢))"abcd"
(⊢≡>∘<)5‿3⥊↕15
(⊢≡(><¨))5‿3⥊↕15
@@ -247,14 +249,26 @@
1‿2≡1≍2
2‿1(≍≡2‿2⥊∾)4‿3
(≍⟜<≡≍˜)'a'
+! % 1‿0≍1‿2‿3
+! % ≍⟜≍↕3
+! % ⌽⎉1.1 ↕4
+! % ⌽⎉'x' ↕4
+! % ⌽⎉(<<0) ↕4
+! % ⌽⎉≍ ↕4
(≍˘˜⥊˘1‿5‿9)≡⌽⎉2⊸+⥊⟜(↕×´)3‿2‿1
+(<0)≡≡˘0
+(<1)≡≡˘<0
(↕4)(×⌜≡×⎉0‿2)↕5
(↕4)(⋆˜⌜˜≡⋆⎉∞‿¯4)↕5
(⟨2⟩⊸∾⍟(2‿2⥊0‿1‿1‿1)2‿3)≡≢¨≍⎉(⌊○=)⌜˜⟨↕3,2‿3⥊↕6⟩
(2=⌜○↕3)≡(2‿4⥊"abc")≡⎉1(2‿3‿4⥊"abc")
⟨0,0⟩≡(2‿4⥊"abc")≡⎉¯1(2‿3‿4⥊"abc")
+! % ⌽⚇2‿2.5 ↕3
+(-≡-⚇¯1)5
⟨5,⟨15,1⟩⟩≡+´⚇1⟨⟨3,2⟩,⟨⟨4,5,6⟩,⟨1⟩⟩⟩
5‿6‿15≡∾´+´⚇1⟨⟨0,1⟩,⟨⟨⟩⟩⟩⥊⊸∾⚇¯2‿1⟨⟨2,3⟩,⟨4,5,6⟩⟩
+! % 2+⍟1‿'c'4
+! % ⋆⍟1.5 2
4≡2+⍟¯1 6
(2×↕7)≡2+⍟(¯3+↕7)6
(3⌊↕5)≡{i←0⋄r←{i+↩1⋄1+𝕩}⍟(↕4)𝕩⋄r∾i}0
@@ -264,6 +278,8 @@
((0∾¨↕3)≍3⥊0)≡≡`↕2‿3
⟨⟩≡×`⟨⟩
≡⟜(!∘0`)3‿0‿2⥊""
+! % +`4
+! % +`<'c'
# LAYER 5
(<'a')≡⊏"abc"