aboutsummaryrefslogtreecommitdiff
path: root/test/cases/identity.bqn
blob: 1a65e0a9e2248e79f9d36def84f2009051abc2f8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# Fold
´ {𝕩≡𝕎´⟨⟩}´¨ +0,-0,×1,÷1,0,1
´ {𝕩≡𝕎´⟨⟩}´¨ 1,¬1,,¯∞
´ {𝕩≡𝕎´⟨⟩}´¨ 0,=1,>0,1
! % ´0
! % |´0
! % ´""
! % ´""
! % ´⟨⟩
! % ´⟨⟩

# Insert
´ {(31𝕩)≡𝕎˝031""}´¨ +0,-0,×1,÷1,0,1,1,¬1,,¯∞,0,=1,>0,1
! % ˝""
(˝(5)"")  (1/↕5)""
(˝¨≡⥊¨) (≍⥊0˙)⌜˜025
! % ˝03⟨⟩