-
Notifications
You must be signed in to change notification settings - Fork 1
/
test sheet.apl
33 lines (23 loc) · 914 Bytes
/
test sheet.apl
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
#!/she/bang
⍝ You can try this at http://tryapl.org/
⍝ I can not explain how much I suddenly love this crypto-language
+-÷×!?*⌈|⌊⊥⊤⍟○⌹
∧∨⍲⍱<>≤≥=≠≡≢
⍴,⍪⌽⊖⍉↑↓⊂
⌷⊃/⌿\⍀~∪∩⊣⊢
⍳∊⍷⍋⍒
¯{}[]''⍺⍵⍺⍺⍵⍵⍬⍕⋄∇⎕←⍝
¨⍨⍣..∘/\⌿⍀⌸⍤
⍺ ⍺⍺ ⍵ ⍵⍵
⎕FMT
()
10 -20 ¯20 0 0.0 ¯123.45
:label
Starts ← 'Experiential truth ' 'The physical world ' 'Non-judgment ' 'Quantum physics '
Middles ← 'nurtures an ' 'projects onto ' 'imparts reality to ' 'constructs with '
Qualifiers ← 'abundance of ' 'the barrier of ' 'self-righteous ' 'potential '
Finishes ← 'marvel.' 'choices.' 'creativity.' 'actions.'
rf ← {(?⍴⍵) ⊃⍵}
erf ← {rf ¨⍵}
deepak ← {erf Starts Middles Qualifiers Finishes}
deepak ⍬