Les nombres triangulaires T(n) sont de la forme 1 + 2 + ... + n = n * (n + 1) / 2, les premiers étant 1, 3, 6, 10, 15 etc. On peut les générer en APL par :Trouver les nombres triangulaires qui diminués de 1, sont la somme de deux nombres triangulaires.
Code : Tout sélectionner
⍳10 ⍝ Entiers entre 1 et 10
1 2 3 4 5 6 7 8 9 10
+\ ⍳10 ⍝ Utilisation d'un scan 1, 1+2, 1+2+3 etc.
1 3 6 10 15 21 28 36 45 55
Code : Tout sélectionner
1 + u ∘.+ u ← +\ ⍳10
3 5 8 12 17 23 30 38 47 57
5 7 10 14 19 25 32 40 49 59
8 10 13 17 22 28 35 43 52 62
12 14 17 21 26 32 39 47 56 66
17 19 22 26 31 37 44 52 61 71
23 25 28 32 37 43 50 58 67 77
30 32 35 39 44 50 57 65 74 84
38 40 43 47 52 58 65 73 82 92
47 49 52 56 61 67 74 82 91 101
57 59 62 66 71 77 84 92 101 111
Code : Tout sélectionner
u ∩ , 1 + u ∘.+ u ← +\ ⍳10
3 10 21 28
Code : Tout sélectionner
u ∩ , 1 + u ∘.+ u ← +\ ⍳100
3 10 21 28 66 91 120 136 190 253 325 406 435 595 703 820 903 1081 1596 1711 1891 2080 2145 2278 2415 2775 2926 3081 3160 3486 3916 4186 4278 4656 4753
Code : Tout sélectionner
MPO111 ← {(+\ ⍳⌈2 × .5 *⍨ ⌈/ v) ∩ v ← , 1 + u ∘.+ u ← +\ ⍳⍵}
MPO111 10
3 10 21 28 66 91
MPO111 100
3 10 21 28 66 91 120 136 190 253 325 406 435 595 703 820 903 1081 1596 1711 1891 2080 2145 2278 2415 2775 2926 3081 3160 3486 3916 4186 4278 4656 4753 5565 6105 7626