Anonymous user
Knuth's algorithm S: Difference between revisions
m
→{{header|PARI/GP}}: more idiomatic
(→{{header|PARI/GP}}: 100,000 times) |
m (→{{header|PARI/GP}}: more idiomatic) |
||
Line 508:
v[t[1]+1]++;v[t[2]+1]++;v[t[3]+1]++
);
v
};</lang>
Output:
<pre>%1 = [30067, 30053, 29888, 30161, 30204, 29990, 30175, 29980, 29622, 29860]</pre>
=={{header|Perl}}==
|