Stirling numbers of the second kind: Difference between revisions
→{{header|Quackery}}: recoded as lookup table for efficiency
(Added Quackery.) |
(→{{header|Quackery}}: recoded as lookup table for efficiency) |
||
Line 1,312:
over size -
space swap of
swap join echo$ ] is justify ( n n --> )
[ table ] is s2table
[ 2dup = iff▼
[ swap 101 *
over 0 = ▼
over 0 = or iff▼
[ 2drop 0 ] done▼
dip [ 1 - ] ▼
2dup tuck recurse *▼
101 times
[ i^ 101 times
[ dup i^
▲ [ 2dup = iff
[ 2drop 1 ] done
▲ over 0 =
▲ over 0 = or iff
▲ [ 2drop 0 ] done
▲ dip [ 1 - ]
unrot 1 - s2 + ]
' s2table put ]
drop ]
cr cr
13 times
[ i^ dup 1+ times
[ dup i^ s2
drop cr ]
cr
0 100 times
|