Deal cards for FreeCell: Difference between revisions

NEXT

ENDIF

[[File:freecell_BBC.gif]]

 

=={{header|Bracmat}}==

= array rank ranks suit suits

. A 2 3 4 5 6 7 8 9 T J Q K:?ranks

(show-deck 1)

(show-deck 617)</lang>

=={{header|C sharp|C#}}==

Longer than it absolutely needs to be because I split out several independently useful classes.

using System.Collections.Generic;

using System.Text;

}

}

<pre>JD 2D 9H JC 5D 7H 7C 5H

KD KC 9S 5S AD QC KH 3H

JD KS KC 4H

</pre>

=={{header|D}}==

{{trans|C}}

JD 7D 8H 9C 2H QD 4C 5H

KC 8D 2S 3S</pre>

=={{header|Go}}==

{{trans|C}}

show(deal(game))

}</lang>

<pre>

Game #1

=={{header|Haskell}}==

{{trans|C}}

<lang haskell>import Data.Int

import Data.Bits

return ishift(srand_freecell((214013 * srand_freecell() + 2531011) % 2147483648),-16)

end</lang>

 

1 2 3 4 5 6 7 8

 

=={{header|J}}==

<lang j>deck=: ,/ 'A23456789TJQK' ,"0/ 7 u: '♣♦♥♠'

 

 

show=: (,"2)@:(_8 ]\ ' '&,.)</lang>

<lang j> show deal srnd 1

J♦ 2♦ 9♥ J♣ 5♦ 7♥ 7♣ 5♥

=={{header|OCaml}}==

{{trans|C}}

<lang ocaml>let srnd x =

(* since OCaml's built-in int type is at least 31 (note: not 32) bits wide,

let cards = deal s in

show cards</lang>

<pre>$ ocaml freecell.ml 617

Deal 617:

binmode STDOUT, ':encoding(utf-8)';

print "Hand $hand_idx\n";

 

=={{header|Perl 6}}==

(at (0 . 8) (prinl)) )

(prinl) )</lang>

=={{header|PureBasic}}==

<lang purebasic>#MaxCardNum = 51 ;zero-based count of cards in a deck

CloseConsole()

EndIf</lang>

<pre>Hand #1

JD 2D 9H JC 5D 7H 7C 5H

deck = deal(seed)

show(deck)</lang>

<pre>Hand 11982

AH AS 4H AC 2D 6S TS JS

deck.each_slice(8) {|row| puts " " + row.join(" ")}

end</lang>

<pre>$ ruby freecell.rb 11982

Game #11982

print

done</lang>

<pre>$ zsh freecell.sh 80388

Game 80388: