aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Permutations-Derangements/EasyLang/permutations-derangements.easy
View file

@ -1,10 +1,8 @@
global list[] rlist[][] .
proc permlist k . .
proc permlist k .
if k >= len list[]
for i to len list[]
if i = list[i]
return
.
if i = list[i] : return
.
rlist[][] &= list[]
return
@ -16,12 +14,10 @@ proc permlist k . .
.
.
#
proc derang n . r[][] .
proc derang n &r[][] .
rlist[][] = [ ]
list[] = [ ]
for i to n
list[] &= i
.
for i to n : list[] &= i
permlist 1
r[][] = rlist[][]
.
@ -30,9 +26,7 @@ derang 4 r[][]
print r[][]
#
func subfac n .
if n < 2
return 1 - n
.
if n < 2 : return 1 - n
return (subfac (n - 1) + subfac (n - 2)) * (n - 1)
.
#