aboutsummaryrefslogtreecommitdiff
path: root/test/cases/undo.bqn
blob: 85a74539f3a8e47f09db7673e7e8bfa344d0fd58 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
# Data
´{𝕩𝕩𝕩}¨¯∞,3,@,'⁼',4
! % 34
! % 2323.1

# Primitives
´ {(𝕎≡𝕎)𝕩}¯0.308¨ +-÷¬
! % - 'a'
! % × 5
(√√) 00.4π1e9
() 4
1e¯14>|1-⋆+´1(⊢÷«)1+↕11
´ {𝕩6𝕎6𝕎𝕩}123¨ +-×÷¬
'a'  3+'d'
3 % 'd'-'a'
0.31.01π(⁼⌜≡÷˜⌜())025.6
(⊢≡⊣⁼˜)"abcd"
! % "ab""ac"
(<<)¨0,⟨⟩,"abc"
(//)1024
⟨⟩≡/⟨⟩
(3⌽≡2)5
((≢⍉)¯1⌽≢)↕↕4
´¯12(↕×´)233
21(⊢≡⊣⍉⍉)(↕×´)2314

# Self/Swap
´ {6(𝕎˜⁼≡𝕎)𝕩}¯0.803¨ +×
3.5 % +˜⁼7
0.5 % ˜⁼0.75
1 % +´,ט⁼,˜⁼{𝕎𝕩}02
´ -÷ {3(𝕎˜⁼≡𝕏)2π∾⋆2}¨ +×
4 % 16˜⁼2
420(¬˜⁼¯1++)129

# Mapping and scan
! % -¨⁼ 2
! % -⌜⁼ 2
! % -˘⁼ 2
! % -˘⁼ <2
! % -`⁼ 2
! % 0-´⁼ 2
(˜  ·(<⌜⁼∾<¨⁼)<¨) "abcd"
"ab""abc"1⁼¨"ba""bca"
(2-=⌜˜2)≡/˘⁼011001
2(˘⁼·⍉⌽)"abcde"
(41)  +`⁼ 1+↕4
⟨⟩  !`⁼⟨⟩
(-»  +`⁼) 2|⌊×⌜˜π+↕5
(52)2÷`⁼2⋆-↕5
(011ט4)(4)+`⁼34⥊↕12
! % (3)+`⁼34⥊↕12

# Composition
0.75 % (÷¬) 4
4 %  2
(⌽/13)(·+`)4
(/13)(·-`)4
(¯10+"BQN")(1⌽⍉)32"PQMNAB"
-1 % (3×·2)6
1 % (3√+7)2
-1 % 5׬10
9 % (√-2{𝔽})1
9 % (√-2˙)1
3 % 21(1)8
(2  2(-))"abcde"
4 % ¯2 ÷˜¬ ¯1
1e¯12>|16- 2 ÷˜() 4
(+`≡+`⁼) 4
2 % ט3256
-{𝕗6𝕗} ¯32
´ {(𝕎≡𝕎⁼⁼)𝕩}241¨ /<

# Extensions
9  ט⁼⁼ ¯3
2  @ {𝕨𝕩}⁼⁼ π
0211  /2311
(/23)  /⁼⁼230
(/23)  /¯1230