testing of ˝˘ & `˘

This commit is contained in:
dzaima 2024-06-26 03:16:41 +03:00
parent 024ab669d5
commit 8d5efa72f0

View File

@ -27,3 +27,31 @@
%USE tcc {𝕎 _tcc 𝕩} 4520, 456120, 2345120
%USE tcc _tcc 428 1_tcc 428 _tcc 42 1_tcc 42
%USE tcc _tcc 428 1_tcc 428 _tcc 42 1_tcc 42
(
# big ˝˘ & `˘ tester
_basicArgs { Test _𝕣 ranks:
{𝕊f: {{! f Test 01˜ 𝕩024832}¨ 𝕩3 1}¨ ranks}¨ +=
}
# TODO replace ○⊢ with some pureness-preserving •internal.Keep
# w F _thing x tests F _thing⎉w x
_testFoldCells {´𝕗=? 0=×´𝕨𝕩? 1; (𝔽˝𝕨 𝔽˝𝕨) 𝕩}
_testScanCells { (𝔽`𝕨 𝔽`𝕨) 𝕩}
{1 𝕨 _testFoldCells 𝕩} _basicArgs 234
{1 𝕨 _testScanCells 𝕩} _basicArgs 234
{2 𝕨 _testScanCells 𝕩} _basicArgs 34
{2 𝕨 _testScanCells 𝕩} _basicArgs 34
0, 01, 10, 1, 10, 101, 110, 100 {
𝕨𝕩 ¨
sh 𝕨𝕩
cr 𝕩
+= {
cr 𝕎 _testFoldCells 𝕩
cr 𝕎 _testScanCells 𝕩
} {0=×´sh? 𝕩; 𝕩, ¬¨ 𝕩, ¬(¯1)¨ 𝕩} sh¨ 01
} 0, 1, 2, 8, 81, 48, 42, 59, 60, 63, 80, 81, 200
)