Stirling numbers of the first kind: Difference between revisions

=={{header|Quackery}}==

<lang Quackery> [ dip number$

over size -

space swap of

swap join echo$ ] is justify ( n n --> )

[ over 0 =

over 0 = and iff

[ 2drop 1 ] done

over 0 >

over 0 = and iff

[ 2drop 0 ] done

2dup < iff

[ 2drop 0 ] done

2dup 1 - swap

1 - swap recurse

unrot dip [ 1 - dup ]

recurse * + ] is s1 ( n k --> r )

say "Unsigned Stirling numbers of the first kind."

cr cr

13 times

[ i^ dup 1+ times

[ dup i^ s1

10 justify ]

drop cr ]

cr

0 100 times

[ 100 i^ 1+ s1 max ]

echo cr</lang>

{{out}}

<pre>Unsigned Stirling numbers of the first kind.

1

0 1

0 1 1

0 2 3 1

0 6 11 6 1

0 24 50 35 10 1

0 120 274 225 85 15 1

0 720 1764 1624 735 175 21 1

0 5040 13068 13132 6769 1960 322 28 1

0 40320 109584 118124 67284 22449 4536 546 36 1

0 362880 1026576 1172700 723680 269325 63273 9450 870 45 1

0 3628800 10628640 12753576 8409500 3416930 902055 157773 18150 1320 55 1

0 39916800 120543840 150917976 105258076 45995730 13339535 2637558 357423 32670 1925 66 1

19710908747055261109287881673376044669240511161402863823515728791076863288440277983854056472903481625299174865860036734731122707870406148096000000000000000000

</pre>