# HelloWorld013.tcl - 2015-06-24
# http://i...content-available-to-author-only...e.com/1t0KK7
 
# foreach, unicode-chars, append, lappend, array,parray, dict
 
proc dumpArray {A}  {
# show contents of an array
  puts "dumpArray:"
  foreach key [array names A] {
    set val $A($key)
    puts "$key : $val"
  }
}
 
set deckStr  ""                                 ;# create empty string
set deckList {}                                 ;# create empty list
array set deckArray {}                          ;# create empty array
 
puts "Deck of cards:"
set i 0
# see also: http://w...content-available-to-author-only...l.tk/26403 : [HTML character entity references]
                   # Spades    Hearts    Diamonds  Clubs
foreach {suit sym} { S \u2660  H \u2665  D \u2666  C \u2663 } {   
  foreach rank { A 2 3 4 5 6 7 8 9 10 J Q K } {  ;# Ace 2 .. 10 Jack Queen King
    incr i
    set card "$rank$sym"
    puts -nonewline " $rank$suit=$card "
 
    append  deckStr   $card                      ;# add card to string
    lappend deckList  $card                      ;# add card to list
    set deckArray($i) $card                      ;# add card to array
  }
  puts ""
}
set maxCard $i
 
puts "\ndeckStr  : $deckStr"                     ;# note: no spaces between
 
puts "\ndeckList : $deckList"
 
puts "\nparray:"
parray deckArray                                 ;# show all elements, unsorted
 
puts "Done."
exit
 
###
 
puts "\ndeckArray (numeric): "
# This works for numeric keys only:
for {set i 1; set n 1} {$i<=$maxCard} {incr i; incr n} { 
  puts -nonewline "$i:$deckArray($i) "
  if { $n >= 13 } { puts ""; set n 0 }        ;# newline
}
 
#dumpArray $deckArray
puts "\ndeckArray (any): "
# This works for any type of keys, but with no specific order:
  set n 0
  foreach key [array names deckArray] {
    incr n
    set val $deckArray($key)
    puts -nonewline "$key:$val  "
    if { $n >= 8 } { puts ""; set n 0 }        ;# newline
  }
puts "\nDone."
exit
 
puts "\nThe list with the deck of cards has [llength $deck] elements:"
 
for {set i 0; set n 0} {$i < [llength $deck]} {incr i; incr n} {
  if { $n >= 8 } { puts ""; set n 0 }        ;# newline after 8 cards
  if { $n == 4 } { puts -nonewline "  " }    ;# extra space after 4 cards 
 
  set c [lindex $deck $i]                    ;# get element #i from the list
  puts -nonewline "$i: $c "
}  
puts "\nDone."
#.

IyBIZWxsb1dvcmxkMDEzLnRjbCAtIDIwMTUtMDYtMjQKIyBodHRwOi8vaS4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uZS5jb20vMXQwS0s3CgojIGZvcmVhY2gsIHVuaWNvZGUtY2hhcnMsIGFwcGVuZCwgbGFwcGVuZCwgYXJyYXkscGFycmF5LCBkaWN0Cgpwcm9jIGR1bXBBcnJheSB7QX0gIHsKIyBzaG93IGNvbnRlbnRzIG9mIGFuIGFycmF5CiAgcHV0cyAiZHVtcEFycmF5OiIKICBmb3JlYWNoIGtleSBbYXJyYXkgbmFtZXMgQV0gewogICAgc2V0IHZhbCAkQSgka2V5KQogICAgcHV0cyAiJGtleSA6ICR2YWwiCiAgfQp9CgpzZXQgZGVja1N0ciAgIiIgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA7IyBjcmVhdGUgZW1wdHkgc3RyaW5nCnNldCBkZWNrTGlzdCB7fSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIDsjIGNyZWF0ZSBlbXB0eSBsaXN0CmFycmF5IHNldCBkZWNrQXJyYXkge30gICAgICAgICAgICAgICAgICAgICAgICAgIDsjIGNyZWF0ZSBlbXB0eSBhcnJheQoKcHV0cyAiRGVjayBvZiBjYXJkczoiCnNldCBpIDAKIyBzZWUgYWxzbzogaHR0cDovL3cuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLmwudGsvMjY0MDMgOiBbSFRNTCBjaGFyYWN0ZXIgZW50aXR5IHJlZmVyZW5jZXNdCiAgICAgICAgICAgICAgICAgICAjIFNwYWRlcyAgICBIZWFydHMgICAgRGlhbW9uZHMgIENsdWJzCmZvcmVhY2gge3N1aXQgc3ltfSB7IFMgXHUyNjYwICBIIFx1MjY2NSAgRCBcdTI2NjYgIEMgXHUyNjYzIH0geyAgIAogIGZvcmVhY2ggcmFuayB7IEEgMiAzIDQgNSA2IDcgOCA5IDEwIEogUSBLIH0geyAgOyMgQWNlIDIgLi4gMTAgSmFjayBRdWVlbiBLaW5nCiAgICBpbmNyIGkKICAgIHNldCBjYXJkICIkcmFuayRzeW0iCiAgICBwdXRzIC1ub25ld2xpbmUgIiAkcmFuayRzdWl0PSRjYXJkICIKCiAgICBhcHBlbmQgIGRlY2tTdHIgICAkY2FyZCAgICAgICAgICAgICAgICAgICAgICA7IyBhZGQgY2FyZCB0byBzdHJpbmcKICAgIGxhcHBlbmQgZGVja0xpc3QgICRjYXJkICAgICAgICAgICAgICAgICAgICAgIDsjIGFkZCBjYXJkIHRvIGxpc3QKICAgIHNldCBkZWNrQXJyYXkoJGkpICRjYXJkICAgICAgICAgICAgICAgICAgICAgIDsjIGFkZCBjYXJkIHRvIGFycmF5CiAgfQogIHB1dHMgIiIKfQpzZXQgbWF4Q2FyZCAkaQoKcHV0cyAiXG5kZWNrU3RyICA6ICRkZWNrU3RyIiAgICAgICAgICAgICAgICAgICAgIDsjIG5vdGU6IG5vIHNwYWNlcyBiZXR3ZWVuCgpwdXRzICJcbmRlY2tMaXN0IDogJGRlY2tMaXN0IgoKcHV0cyAiXG5wYXJyYXk6IgpwYXJyYXkgZGVja0FycmF5ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgOyMgc2hvdyBhbGwgZWxlbWVudHMsIHVuc29ydGVkCgpwdXRzICJEb25lLiIKZXhpdAoKIyMjCgpwdXRzICJcbmRlY2tBcnJheSAobnVtZXJpYyk6ICIKIyBUaGlzIHdvcmtzIGZvciBudW1lcmljIGtleXMgb25seToKZm9yIHtzZXQgaSAxOyBzZXQgbiAxfSB7JGk8PSRtYXhDYXJkfSB7aW5jciBpOyBpbmNyIG59IHsgCiAgcHV0cyAtbm9uZXdsaW5lICIkaTokZGVja0FycmF5KCRpKSAiCiAgaWYgeyAkbiA+PSAxMyB9IHsgcHV0cyAiIjsgc2V0IG4gMCB9ICAgICAgICA7IyBuZXdsaW5lCn0KCiNkdW1wQXJyYXkgJGRlY2tBcnJheQpwdXRzICJcbmRlY2tBcnJheSAoYW55KTogIgojIFRoaXMgd29ya3MgZm9yIGFueSB0eXBlIG9mIGtleXMsIGJ1dCB3aXRoIG5vIHNwZWNpZmljIG9yZGVyOgogIHNldCBuIDAKICBmb3JlYWNoIGtleSBbYXJyYXkgbmFtZXMgZGVja0FycmF5XSB7CiAgICBpbmNyIG4KICAgIHNldCB2YWwgJGRlY2tBcnJheSgka2V5KQogICAgcHV0cyAtbm9uZXdsaW5lICIka2V5OiR2YWwgICIKICAgIGlmIHsgJG4gPj0gOCB9IHsgcHV0cyAiIjsgc2V0IG4gMCB9ICAgICAgICA7IyBuZXdsaW5lCiAgfQpwdXRzICJcbkRvbmUuIgpleGl0CgpwdXRzICJcblRoZSBsaXN0IHdpdGggdGhlIGRlY2sgb2YgY2FyZHMgaGFzIFtsbGVuZ3RoICRkZWNrXSBlbGVtZW50czoiCgpmb3Ige3NldCBpIDA7IHNldCBuIDB9IHskaSA8IFtsbGVuZ3RoICRkZWNrXX0ge2luY3IgaTsgaW5jciBufSB7CiAgaWYgeyAkbiA+PSA4IH0geyBwdXRzICIiOyBzZXQgbiAwIH0gICAgICAgIDsjIG5ld2xpbmUgYWZ0ZXIgOCBjYXJkcwogIGlmIHsgJG4gPT0gNCB9IHsgcHV0cyAtbm9uZXdsaW5lICIgICIgfSAgICA7IyBleHRyYSBzcGFjZSBhZnRlciA0IGNhcmRzIAogIAogIHNldCBjIFtsaW5kZXggJGRlY2sgJGldICAgICAgICAgICAgICAgICAgICA7IyBnZXQgZWxlbWVudCAjaSBmcm9tIHRoZSBsaXN0CiAgcHV0cyAtbm9uZXdsaW5lICIkaTogJGMgIgp9ICAKcHV0cyAiXG5Eb25lLiIKIy4=