Deal cards for FreeCell: Difference between revisions

{{trans|Python}}

<lang nim>import sequtils, strutils, os

proc randomGenerator(seed: int): iterator: int =

return iterator: int =

while true:

const nc = 52

result = toSeq countdown(nc - 1, 0)

var rnd = randomGenerator seed

let r = rnd()

let j = (nc - 1) - r mod (nc - i)

swap result[i], result[j]

var l = newSeq[string]()

for c in cards:

for i in countup(0, cards.high, 8):

echo " ", l[i..min(i+7, l.high)].join(" ")

let seed = if paramCount() == 1: paramStr(1).parseInt else: 11982

echo "Hand ", seed