RosettaCodeData/Task/Permutations-Derangements/J/permutations-derangements-1.j
2023-07-01 13:44:08 -04:00

2 lines
115 B
Text

derangement=: (A.&i.~ !)~ (*/ .~: # [) i. NB. task item 1
subfactorial=: ! * +/@(_1&^ % !)@i.@>: NB. task item 3