Lah numbers: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
m (→{{header|J}}) |
||
Line 465: | Line 465: | ||
<lang J> |
<lang J> |
||
NB. use: k lah n |
NB. use: k lah n |
||
lah=: ! :(!&<: * %&!~)&x: NB. %~ is shorter than *inv |
lah=: ! :(!&<: * %&!~)&x: NB. `%~' is shorter than `*inv' |
||
NB. wory_lah translates lah to algebraic English. |
|||
Monad =: :[: NB. permit only a y argument |
Monad =: :[: NB. permit only a y argument |
||
Dyad =: [: : NB. require x and y arguments |
Dyad =: [: : NB. require x and y arguments |
||
Line 479: | Line 480: | ||
times =: * Dyad |
times =: * Dyad |
||
extend_precision =: x: Monad |
extend_precision =: x: Monad |
||
wordy_lah =: (combinations but_1st decrement times into but_1st factorial)but_1st extend_precision Dyad |
wordy_lah =: ((combinations but_1st decrement) times (into but_1st factorial))but_1st extend_precision Dyad |
||
</lang> |
</lang> |
||
<pre> |
<pre> |