Meta
add tag
Adám
APL characters render oddly in some fonts.
Top Answer
Adám
`+⌿÷≢` +⌿÷≢

0.1+-×÷⌈⌊*⍟|!○~∨∧⍱⍲<≤=≥>≠.@≡≢⍴,⍪⍳↑↓?⍒⍋⍉⌽⊖∊⊥⊤⍎⍕⌹⊂⊃∪∩⍷⌷∘→←⎕⍞/⌿\⍀À¨⍣&⍨⌶#⊆⍥⊣⊢⍠⍤⌸⌺⍸()[];⍝⋄:⍬{}∇
`0.1+-×÷⌈⌊*⍟|!○~∨∧⍱⍲<≤=≥>≠.@≡≢⍴,⍪⍳↑↓?⍒⍋⍉⌽⊖∊⊥⊤⍎⍕⌹⊂⊃∪∩⍷⌷∘→←⎕⍞/⌿\⍀À¨⍣&⍨⌶#⊆⍥⊣⊢⍠⍤⌸⌺⍸()[];⋄:⍬{}∇⍝`
```
0.1+-×÷⌈⌊*⍟|!○~∨∧⍱⍲<≤=≥>≠ .@≡≢⍴,⍪⍳↑↓?⍒⍋⍉⌽⊖∊⊥⊤⍎⍕⌹⊂⊃∪∩⍷⌷∘→←⎕⍞/⌿\⍀À¨⍣&⍨⌶#⊆⍥⊣⊢⍠⍤⌸⌺⍸()[];⋄:⍬{}∇⍝
```

≢ often renders as ≡/

Samples:

> **APL** (named after the book _A Programming Language_)^[2]^ is a programming language developed in the 1960s by Kenneth E. Iverson. Its central datatype is the multidimensional array. It uses a large range of special graphic symbols^[3]^ to represent most functions and operators, leading to very concise code. It has been an important influence on the development of concept modeling, spreadsheets, functional programming,^[4]^ and computer math packages.^[5]^ It has also inspired several other programming languages.^[6][7]^
```
xtimes←{⎕IO←0  ⍝ Fast multi-digit product using FFT.
    roots←{×\1,1↓(⍵÷2)⍴¯1*2÷⍵}
    cube←{⍵⍴⍨2⍴⍨2⍟⍴⍵}
    extend←{(2*⌈2⍟¯1+(⍴⍺)+⍴⍵)↑¨⍺ ⍵}
    floop←{(⊣/⍺)∇⍣(×m)⊢(+⌿⍵),[m-0.5]⍺×[⍳m←≢⍴⍺]-⌿⍵}
    FFT←{,(cube roots⍴⍵)floop cube ⍵}
    iFFT←{(⍴⍵)÷⍨,(cube+roots⍴⍵)floop cube ⍵}
    rconvolve←{(¯1+(⍴⍺)+⍴⍵)↑iFFT⊃×/FFT¨⍺ extend ⍵}
    carry←{1↓+⌿1 0⌽0,0 10⊤⍵}
    (+/∧\0=t)↓t←carry⍣≡0,⌊0.5+9○⍺ rconvolve ⍵
}
```

This room is for discussion about this question.

Once logged in you can direct comments to any contributor here.

Enter question or answer id or url (and optionally further answer ids/urls from the same question) from

Separate each id/url with a space. No need to list your own answers; they will be imported automatically.