Rosetta Code

Permutations: Difference between revisions

Page Discussion

Permutations (view source)

Revision as of 13:22, 22 August 2019

126 bytes added ,  4 years ago
m
→‎{{header|Langur}}: replace tabs with spaces
(added langur language example)
m (→‎{{header|Langur}}: replace tabs with spaces)
Line 3,723:
}
 
val .limit = 10
if len(.arr) > .limit {
throw $"Permutation limit exceeded (currently \.limit;)"
}
}
 
var .size = .factorial(len .arr)
var .arrOf = [.arr]
 
var .elements = .arr
var .ordinals = series 1 .. len .elements
 
val .n = len(.ordinals)
var (.i, .j)
 
for .c = 1; .c < .size; .c += 1 {
.i = .n - 1
.j = .n
for .ordinals[.i] > .ordinals[.i+1] {
.i -= 1
}
}
for .ordinals[.j] < .ordinals[.i] {
.j -=1
}
}
 
(.ordinals[.i], .ordinals[.j]) = (.ordinals[.j], .ordinals[.i])
(.elements[.i], .elements[.j]) = (.elements[.j], .elements[.i])
 
.j = .n
.i += 1
for ; .i < .j; .i+=1, .j-=1 {
(.ordinals[.i], .ordinals[.j]) = (.ordinals[.j], .ordinals[.i])
(.elements[.i], .elements[.j]) = (.elements[.j], .elements[.i])
}
}
.arrOf = more .arrOf, .elements
}
}
 
return .arrOf
}
 
Langurmonkey
1,006

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/158762"