luxferre/clyx
1
0
Fork 0
Code Actions Activity

streamlined q-form related calls

Browse Source
This commit is contained in:
Luxferre
2026-07-04 16:59:38 +03:00
parent 46ff217e14
commit a4978499d6
5 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test.clx
+11 -11
View File
@@ -159,16 +159,16 @@ if [
"AbC" lower "abc" streq
"aBc" upper "ABC" streq and
"abc" "def" s+ "abcdef" streq and
"abc" s2l [ 97 98 99 ] streq and
"abc" s2l l2s "abc" streq and
[ 1 2 3 ] s2l [ 1 2 3 ] streq and
"" s2l [ ] streq and
[ 97 98 99 ] l2s "abc" streq and
[ ] l2s "" streq and
"abc" s2q [ 97 98 99 ] streq and
"abc" s2q q2s "abc" streq and
[ 1 2 3 ] s2q [ 1 2 3 ] streq and
"" s2q [ ] streq and
[ 97 98 99 ] q2s "abc" streq and
[ ] q2s "" streq and
if [
" l2s, streq, lower, and upper PASS" puts cr
" q2s, streq, lower, and upper PASS" puts cr
] [
" l2s, streq, lower, and upper FAIL" puts cr
" q2s, streq, lower, and upper FAIL" puts cr
]
# 8. Q-form Operations
@@ -182,11 +182,11 @@ if [
99 [ 10 20 30 ] 1 qset [ 10 99 30 ] streq if [ " qset PASS" puts cr ] [ " qset FAIL" puts cr ] # Test qset
[ 1 2 3 ] rev [ 3 2 1 ] streq
[ 1 2 ] [ 3 4 ] lcat [ 1 2 3 4 ] streq and
[ 1 2 ] s2l [ 1 2 ] streq and
[ 1 2 ] s2q [ 1 2 ] streq and
if [
" rev, lcat and s2l PASS" puts cr
" rev, lcat and s2q PASS" puts cr
] [
" rev, lcat and s2l FAIL" puts cr
" rev, lcat and s2q FAIL" puts cr
]
# 9. Bitwise Operations