Factorial base numbers indexing permutations of a collection: Difference between revisions

m
(→‎{{header|zkl}}: added code)
m (→‎{{header|zkl}}: fix part 4)
Line 273:
2♣5♣J♥4♥J♠A♠5♥A♣6♦Q♠9♣3♦Q♥J♣10♥K♣10♣5♦7♥10♦3♠8♥10♠7♠6♥5♠K♥4♦A♥4♣2♥9♦Q♣8♣7♦6♣3♥6♠7♣2♦J♦9♥A♦Q♦8♦4♠K♦K♠3♣2♠8♠9♠
</pre>
I need to fix part 4, it is getting late
<lang zkl>println("Part 4: Generate a random shuffle:");
r:=(51)[52..2,-1].pump(List,(0).random.fp(51));
println(r.concat("."),"\n",fpermute(deck,r).concat(""));</lang>
{{out}}
<pre>
Part 4: Generate a random shuffle:
395.720.3346.1941.5024.3239.4110.37.2435.26.2717.3739.4530.415.2616.4613.5027.7.13.27.389.251.4415.4716.4813.2920.417.2914.4420.408.4719.3113.383.490.481.427.486.3813.4711.453.435.502.481.425.458.454.49.465.471.502.482.490.501
9♠6♥5♣10♣A♦J♣3♠A♣10♦8♥4♣4♦8♠7♥J♥3♦5♠9♥Q♣A♥K♠K♦J♦3♥2♦2♠9♦8♣Q♥7♣8♦10♠A♠J♠4♥5♥6♣K♣4♠2♥6♠7♠6♦2♣7♦9♣K♥Q♦5♦Q♠3♣10♥
A♣7♠6♦7♥A♠4♦6♣10♣K♦10♦8♦5♣K♠Q♠5♦J♠10♠Q♣9♠K♣8♠6♠5♠4♠3♠2♠A♥K♥Q♥J♥10♥9♥8♥6♥5♥4♥3♥2♥A♦Q♦J♦9♦7♦3♦2♦J♣9♣8♣7♣4♣3♣2♣
</pre>
Anonymous user