From 59c485feb0dc319c349e8770bef857ac9a56e8d2 Mon Sep 17 00:00:00 2001
From: Philippe Legault <plegault@live.ca>
Date: Sun, 27 Apr 2025 10:26:07 +0900
Subject: [PATCH] Refresh code, fixes #34

---
 "\342\231\240 Spades/1 - Prolog.pl"           | 12 ++++++------
 "\342\231\240 Spades/11 - Go.go"              |  9 +++++----
 "\342\231\240 Spades/12 - Bash.sh"            | 11 ++++++-----
 "\342\231\240 Spades/13 - SQL.sql"            |  8 ++++----
 "\342\231\240 Spades/2 - Assembly.txt"        | 14 ++++++++------
 "\342\231\240 Spades/3 - JavaScript.js"       |  7 +++----
 "\342\231\240 Spades/5 - FORTRAN.f95"         |  9 ++++-----
 "\342\231\240 Spades/7 - F#.fs"               |  8 +++++---
 "\342\231\240 Spades/9 - Pascal.pas"          | 12 ++++++------
 "\342\231\243 Clubs/1 - Julia.j"              | 11 +++++++----
 "\342\231\243 Clubs/10 - Swift.swift"         |  7 +++++--
 "\342\231\243 Clubs/11 - C#.cs"               | 13 ++++++++-----
 "\342\231\243 Clubs/12 - BASIC.b"             | 10 ++++------
 "\342\231\243 Clubs/13 - XML.xml"             | 10 ++++++----
 "\342\231\243 Clubs/2 - MIPS.s"               |  8 +++++---
 "\342\231\243 Clubs/4 - Groovy.groovy"        | 12 ++++++------
 "\342\231\243 Clubs/5 - Haxe.hx"              | 16 +++++++++-------
 "\342\231\243 Clubs/6 - PHP.php"              | 14 ++++++++------
 "\342\231\243 Clubs/8 - C++.cpp"              | 13 ++++++-------
 "\342\231\245 Hearts/1 - BATCH.bat"           | 14 +++++++++-----
 "\342\231\245 Hearts/10 - Powershell.ps1"     | 14 +++++++-------
 "\342\231\245 Hearts/13 - Regex.txt"          |  2 +-
 "\342\231\245 Hearts/2 - Lua.lua"             |  8 +++++---
 "\342\231\245 Hearts/3 - Delphi.pas"          |  3 ++-
 "\342\231\245 Hearts/4 - Haskell.hs"          | 15 +++++++++------
 "\342\231\245 Hearts/5 - Lisp.el"             | 16 ++++++++++------
 "\342\231\245 Hearts/7 - Perl.pl"             | 12 ++++++------
 "\342\231\245 Hearts/8 - CoffeeScript.coffee" | 12 +++++++-----
 "\342\231\246 Diamonds/1 - HTML.html"         |  2 +-
 "\342\231\246 Diamonds/10 - Elixir.ex"        |  4 ++--
 "\342\231\246 Diamonds/11 - Ruby.rb"          | 13 ++++++++-----
 "\342\231\246 Diamonds/12 - Erlang.erl"       | 11 ++++++-----
 "\342\231\246 Diamonds/13 - Cobol.cbl"        | 12 ++++++++----
 "\342\231\246 Diamonds/3 - Visual Basic.vbs"  | 13 ++++++++-----
 "\342\231\246 Diamonds/4 - R.r"               |  2 +-
 "\342\231\246 Diamonds/5 - Dart.dart"         | 15 ++++++++++-----
 "\342\231\246 Diamonds/6 - CSS.css"           |  8 +++++---
 "\342\231\246 Diamonds/7 - D.d"               |  4 +++-
 "\342\231\246 Diamonds/8 - Java.java"         | 13 ++++++++-----
 39 files changed, 227 insertions(+), 170 deletions(-)
 mode change 100644 => 100755 "\342\231\240 Spades/12 - Bash.sh"

diff --git "a/\342\231\240 Spades/1 - Prolog.pl" "b/\342\231\240 Spades/1 - Prolog.pl"
index e6e91e9..0b68709 100644
--- "a/\342\231\240 Spades/1 - Prolog.pl"	
+++ "b/\342\231\240 Spades/1 - Prolog.pl"	
@@ -1,7 +1,7 @@
-name(Ace).
-suit(Spades).
-value(Ace, 1).
-card(X,Y) :- name(X),
-             suit(Y).
+rank(ace).
+suit(spades).
+value(ace, 1).
 
-?- card(Ace, Spades).
+card(Rank, Suit) :-
+    rank(Rank),
+    suit(Suit).
\ No newline at end of file
diff --git "a/\342\231\240 Spades/11 - Go.go" "b/\342\231\240 Spades/11 - Go.go"
index da25e15..8e61b20 100644
--- "a/\342\231\240 Spades/11 - Go.go"	
+++ "b/\342\231\240 Spades/11 - Go.go"	
@@ -1,7 +1,8 @@
+package main
+
 type Card struct {
-  rank int
-  name string
-  suit string
+  Rank int
+  Suit string
 }
 
-c := Card{11, "Jack", "spades"}
+var card := Card{Rank: 11, Suit: "spades"}
\ No newline at end of file
diff --git "a/\342\231\240 Spades/12 - Bash.sh" "b/\342\231\240 Spades/12 - Bash.sh"
old mode 100644
new mode 100755
index ed2e22a..e65d5c1
--- "a/\342\231\240 Spades/12 - Bash.sh"	
+++ "b/\342\231\240 Spades/12 - Bash.sh"	
@@ -1,5 +1,6 @@
-rm Spades;  
-for i in {1..12}; 
-  do echo $i >> Spades;  
-done; 
-wc -l Spades | sed 's/12/Queen of/'
+rm -f cards.txt
+for i in {1..13}; do
+  printf '%d\n' "$i" >> cards.txt
+done
+
+cat cards.txt | sed 's/^12$/Queen of spades/'
\ No newline at end of file
diff --git "a/\342\231\240 Spades/13 - SQL.sql" "b/\342\231\240 Spades/13 - SQL.sql"
index 1ed8c8b..2ecc050 100644
--- "a/\342\231\240 Spades/13 - SQL.sql"	
+++ "b/\342\231\240 Spades/13 - SQL.sql"	
@@ -1,4 +1,4 @@
-SELECT card FROM deck
-  WHERE rank=13
-  AND suit="spades"
-  AND name="king";
\ No newline at end of file
+SELECT * FROM cards
+  WHERE rank = 13
+  AND suit = 'spades'
+  LIMIT 1;
\ No newline at end of file
diff --git "a/\342\231\240 Spades/2 - Assembly.txt" "b/\342\231\240 Spades/2 - Assembly.txt"
index 57a2823..7e4cfab 100644
--- "a/\342\231\240 Spades/2 - Assembly.txt"	
+++ "b/\342\231\240 Spades/2 - Assembly.txt"	
@@ -1,6 +1,8 @@
-.global card
-.data
-rank:
-  .long 2
-suit:
-  .string "spades"
+    .section .data
+    .globl card_rank, card_suit
+
+card_rank:
+    .long 2
+
+card_suit:
+    .asciz "spades" 
\ No newline at end of file
diff --git "a/\342\231\240 Spades/3 - JavaScript.js" "b/\342\231\240 Spades/3 - JavaScript.js"
index 4d3e53c..712f9bd 100644
--- "a/\342\231\240 Spades/3 - JavaScript.js"	
+++ "b/\342\231\240 Spades/3 - JavaScript.js"	
@@ -1,6 +1,5 @@
-var card = {
+const card = {
   rank: 3,
-  suit: "spades"
+  suit: "spades",
 };
-console.log(
-  JSON.stringify(card));
+console.log(card);
diff --git "a/\342\231\240 Spades/5 - FORTRAN.f95" "b/\342\231\240 Spades/5 - FORTRAN.f95"
index dfe23ee..37784f9 100644
--- "a/\342\231\240 Spades/5 - FORTRAN.f95"	
+++ "b/\342\231\240 Spades/5 - FORTRAN.f95"	
@@ -1,8 +1,7 @@
 TYPE :: Card
-  integer       :: Rank
-  character(20) :: Suit
+  INTEGER       :: Rank
+  CHARACTER(20) :: Suit
 END TYPE Card
 
-TYPE(Card) :: Five
-Five%Rank = 5
-Five%Suit = 'spades'
+TYPE(Card) :: five
+five = Card(5, 'spades')
\ No newline at end of file
diff --git "a/\342\231\240 Spades/7 - F#.fs" "b/\342\231\240 Spades/7 - F#.fs"
index cddc921..05c8ee9 100644
--- "a/\342\231\240 Spades/7 - F#.fs"	
+++ "b/\342\231\240 Spades/7 - F#.fs"	
@@ -1,7 +1,9 @@
 type card = { 
-  Rank : byte;
-  Suit : string }
+  Rank : int;
+  Suit : string
+}
 
 let card = { 
   Rank = 7; 
-  Suit = "spades" }
+  Suit = "spades"
+}
diff --git "a/\342\231\240 Spades/9 - Pascal.pas" "b/\342\231\240 Spades/9 - Pascal.pas"
index 18b5ac2..29a0859 100644
--- "a/\342\231\240 Spades/9 - Pascal.pas"	
+++ "b/\342\231\240 Spades/9 - Pascal.pas"	
@@ -1,12 +1,12 @@
 type
   TCard = record
-      rank: integer;
-      suit: string(10);
+    Rank : Integer;
+    Suit : String[10];
   end;
 
 var
-  card: TCard;
+  Card : TCard;
 begin
-  card.rank := 9;
-  card.suit := ‘spades’;
-end;
\ No newline at end of file
+  Card.Rank := 9;
+  Card.Suit := 'spades';
+end.
\ No newline at end of file
diff --git "a/\342\231\243 Clubs/1 - Julia.j" "b/\342\231\243 Clubs/1 - Julia.j"
index 0b67a5b..b599bf9 100644
--- "a/\342\231\243 Clubs/1 - Julia.j"	
+++ "b/\342\231\243 Clubs/1 - Julia.j"	
@@ -1,8 +1,11 @@
 type Card
     rank::Int
-    suit::AbstractString
-    name::AbstractString
+    suit::String
+    name::String
 end
 
-card = Card(1, "Ace", 
-               "clubs")
+card = Card(
+    1,
+    "Ace", 
+    "clubs"
+)
diff --git "a/\342\231\243 Clubs/10 - Swift.swift" "b/\342\231\243 Clubs/10 - Swift.swift"
index d9b0caa..61caf6c 100644
--- "a/\342\231\243 Clubs/10 - Swift.swift"	
+++ "b/\342\231\243 Clubs/10 - Swift.swift"	
@@ -1,8 +1,11 @@
+enum Suit { case clubs, ... }
+
 struct Card {
-  var rank: UInt8
+  var rank: Int
   var suit: Suit
 }
 
 let card = Card(
   rank: 10, 
-  suit: .Clubs)
+  suit: .clubs
+)
diff --git "a/\342\231\243 Clubs/11 - C#.cs" "b/\342\231\243 Clubs/11 - C#.cs"
index 1e38b6d..8d65fff 100644
--- "a/\342\231\243 Clubs/11 - C#.cs"	
+++ "b/\342\231\243 Clubs/11 - C#.cs"	
@@ -1,6 +1,9 @@
-var card = new {
-	rank = 11,
-	name = "Jack",
-	suit = "clubs"
-};
+record Card(int Rank, String Suit)
+{
+  public override string ToString() =>
+    $"{Rank.ToString()} of {Suit}";
+}
+
+var card = new Card(11, "clubs");
+
 Console.WriteLine(card);
\ No newline at end of file
diff --git "a/\342\231\243 Clubs/12 - BASIC.b" "b/\342\231\243 Clubs/12 - BASIC.b"
index 772df21..35329bc 100644
--- "a/\342\231\243 Clubs/12 - BASIC.b"	
+++ "b/\342\231\243 Clubs/12 - BASIC.b"	
@@ -1,7 +1,5 @@
-LET $RANK = 12
-LET $NAME = "Queen"
-LET $SUIT = "clubs"
+LET Rank%  = 12
+LET Name$  = "Queen"
+LET Suit$  = "clubs"
 
-Debug.Print $RANK, 
-            $NAME, 
-            $SUIT
+PRINT Name$; " of "; Suit$
\ No newline at end of file
diff --git "a/\342\231\243 Clubs/13 - XML.xml" "b/\342\231\243 Clubs/13 - XML.xml"
index 8cedfbf..cf38b52 100644
--- "a/\342\231\243 Clubs/13 - XML.xml"	
+++ "b/\342\231\243 Clubs/13 - XML.xml"	
@@ -1,4 +1,6 @@
-<card rank="13">
-    <name>King</name>
-    <suit>clubs</suit>
-</card>
+<?xml version="1.0" encoding="UTF-8"?>
+<card>
+  <rank>13</rank>
+  <name>King</name>
+  <suit>clubs</suit>
+</card>
\ No newline at end of file
diff --git "a/\342\231\243 Clubs/2 - MIPS.s" "b/\342\231\243 Clubs/2 - MIPS.s"
index 4b8430c..af44b0a 100644
--- "a/\342\231\243 Clubs/2 - MIPS.s"	
+++ "b/\342\231\243 Clubs/2 - MIPS.s"	
@@ -1,3 +1,5 @@
-.data
-    rank: .word 2
-    suit: .asciiz "clubs"
\ No newline at end of file
+    .data
+    .globl card_rank, card_suit
+
+card_rank:  .word   2
+card_suit:  .asciiz "clubs"
\ No newline at end of file
diff --git "a/\342\231\243 Clubs/4 - Groovy.groovy" "b/\342\231\243 Clubs/4 - Groovy.groovy"
index 13e8005..9040d43 100644
--- "a/\342\231\243 Clubs/4 - Groovy.groovy"	
+++ "b/\342\231\243 Clubs/4 - Groovy.groovy"	
@@ -1,8 +1,8 @@
+@groovy.transform.Canonical
 class Card {
-  def rank, suit
-  def show() {
-    "${rank} of ${suit}"}
+    int    rank
+    String suit
 }
-def card = 
-  new Card(rank:4, 
-          suit:"clubs")
+
+def card = new Card(4, 'clubs')
+println card   
\ No newline at end of file
diff --git "a/\342\231\243 Clubs/5 - Haxe.hx" "b/\342\231\243 Clubs/5 - Haxe.hx"
index 6778afb..a39947d 100644
--- "a/\342\231\243 Clubs/5 - Haxe.hx"	
+++ "b/\342\231\243 Clubs/5 - Haxe.hx"	
@@ -1,7 +1,9 @@
-var card:{ 
-  rank: Int, 
-  suit: String } 
-= { 
-  rank: 5, 
-  suit: "clubs" 
-};
+typedef Card = {
+  var rank:Int;
+  var suit:String;
+}
+
+var card:Card = {
+  rank: 5,
+  suit: "clubs"
+};
\ No newline at end of file
diff --git "a/\342\231\243 Clubs/6 - PHP.php" "b/\342\231\243 Clubs/6 - PHP.php"
index d297fcb..021032b 100644
--- "a/\342\231\243 Clubs/6 - PHP.php"	
+++ "b/\342\231\243 Clubs/6 - PHP.php"	
@@ -1,8 +1,10 @@
+<?php
 function card(
-  $rank, 
-  $suit
-) {
-  return $rank . " of " 
-         . $suit;
+  int $rank,
+  string $suit
+): string
+{
+    return "{$rank} of {$suit}";
 }
-echo card(6, "clubs");
+
+echo card(6, 'clubs');
\ No newline at end of file
diff --git "a/\342\231\243 Clubs/8 - C++.cpp" "b/\342\231\243 Clubs/8 - C++.cpp"
index 6ac0d99..502651e 100644
--- "a/\342\231\243 Clubs/8 - C++.cpp"	
+++ "b/\342\231\243 Clubs/8 - C++.cpp"	
@@ -1,7 +1,6 @@
-class Card {
-    Suit suit_;
-    int rank_;
-  public:
-    Card(Suit& suit, int rank) : suit_(suit), rank_(rank) {}
-};
-Card card(Suit::Clubs, 8);
\ No newline at end of file
+typedef struct {
+    int         rank;
+    const char *suit;
+} Card;
+
+Card card = { 7, "clubs" };
\ No newline at end of file
diff --git "a/\342\231\245 Hearts/1 - BATCH.bat" "b/\342\231\245 Hearts/1 - BATCH.bat"
index e4fdedf..18042c4 100644
--- "a/\342\231\245 Hearts/1 - BATCH.bat"	
+++ "b/\342\231\245 Hearts/1 - BATCH.bat"	
@@ -1,6 +1,10 @@
 @echo off
-SET rank=1
-SET name=Ace
-SET suit=hearts
-echo %name% of %suit%
-Pause>nul
+
+rem
+set "Rank=1" rem 1 = Ace
+set "Name=Ace"
+set "Suit=hearts"
+
+echo !Name! of !Suit!
+
+pause >nul
\ No newline at end of file
diff --git "a/\342\231\245 Hearts/10 - Powershell.ps1" "b/\342\231\245 Hearts/10 - Powershell.ps1"
index 7ba9472..49578c6 100644
--- "a/\342\231\245 Hearts/10 - Powershell.ps1"	
+++ "b/\342\231\245 Hearts/10 - Powershell.ps1"	
@@ -1,7 +1,7 @@
-function card(
-      [int] $rank, 
-      [string] $suit) {
-  Wscript.Echo rank
-  Wscript.Echo suit
-}
-card(10, "hearts")
+function Card{
+param(
+  [int]$r,
+  [string]$s)
+"$r of $s"}
+
+Card 10 'hearts'
\ No newline at end of file
diff --git "a/\342\231\245 Hearts/13 - Regex.txt" "b/\342\231\245 Hearts/13 - Regex.txt"
index 77776ac..4b63e0e 100644
--- "a/\342\231\245 Hearts/13 - Regex.txt"	
+++ "b/\342\231\245 Hearts/13 - Regex.txt"	
@@ -1 +1 @@
-/^([Kk]ing|13)(?:of)?([hH]earts)$/
\ No newline at end of file
+/^([Kk]ing|13)(?:of )?([hH]earts)$/i
\ No newline at end of file
diff --git "a/\342\231\245 Hearts/2 - Lua.lua" "b/\342\231\245 Hearts/2 - Lua.lua"
index 039c355..1491f45 100644
--- "a/\342\231\245 Hearts/2 - Lua.lua"	
+++ "b/\342\231\245 Hearts/2 - Lua.lua"	
@@ -1,7 +1,9 @@
-Card = {
+local Card = {
   rank = 2,
   suit = "hearts",
-  print = function (self)
-    print rank..suit
+  show = function(self)
+    print(self.rank .. " of " .. self.suit)
   end
 }
+
+Card:show()
\ No newline at end of file
diff --git "a/\342\231\245 Hearts/3 - Delphi.pas" "b/\342\231\245 Hearts/3 - Delphi.pas"
index eadc277..0773aef 100644
--- "a/\342\231\245 Hearts/3 - Delphi.pas"	
+++ "b/\342\231\245 Hearts/3 - Delphi.pas"	
@@ -5,4 +5,5 @@   TCard = class(TObject)
     constructor Create
       (AName: String);
   end;
-Card:=TCard.Create('3♥');
+var
+  Card: TCard = (Name: '3 of hearts');
diff --git "a/\342\231\245 Hearts/4 - Haskell.hs" "b/\342\231\245 Hearts/4 - Haskell.hs"
index 1aca984..770a994 100644
--- "a/\342\231\245 Hearts/4 - Haskell.hs"	
+++ "b/\342\231\245 Hearts/4 - Haskell.hs"	
@@ -1,7 +1,10 @@
-data Card = Card { 
-  rank :: Int, 
-  suit :: String }
-  deriving (Show)
+newtype Suit = Suit String
+  deriving (Show, Eq)
 
-card = Card { rank = 4, 
-  suit = "Hearts" }
+data Card = Card
+  { rank :: Int
+  , suit :: Suit
+  } deriving (Show, Eq)
+
+card :: Card
+card = Card 4 (Suit "Hearts")
\ No newline at end of file
diff --git "a/\342\231\245 Hearts/5 - Lisp.el" "b/\342\231\245 Hearts/5 - Lisp.el"
index 6bfebd8..35731ae 100644
--- "a/\342\231\245 Hearts/5 - Lisp.el"	
+++ "b/\342\231\245 Hearts/5 - Lisp.el"	
@@ -1,7 +1,11 @@
-(defstruct card { 
-       :rank :suit })
+(defstruct card
+  rank
+  suit)
 
-(setq card (make-card
-  :rank "5" 
-  :suit "hearts"))
-(write card)
+(let ((c (make-card
+          :rank 5
+          :suit 'hearts)))
+  (format t
+          "~a of ~a~%"
+          (card-rank c)
+          (card-suit c)))
\ No newline at end of file
diff --git "a/\342\231\245 Hearts/7 - Perl.pl" "b/\342\231\245 Hearts/7 - Perl.pl"
index fddcf74..36d6b8d 100644
--- "a/\342\231\245 Hearts/7 - Perl.pl"	
+++ "b/\342\231\245 Hearts/7 - Perl.pl"	
@@ -1,7 +1,7 @@
-my $card = { 
-  rank => 7, 
-  suit => "hearts"
-}
+my $card = {
+  rank => 7,
+  suit => 'hearts'
+};
 
-print "$card{$rank} of 
-         $card{$suit}"
+print "$card->{rank} ",
+  "of $card->{suit}\n";
\ No newline at end of file
diff --git "a/\342\231\245 Hearts/8 - CoffeeScript.coffee" "b/\342\231\245 Hearts/8 - CoffeeScript.coffee"
index e7225d8..b507da3 100644
--- "a/\342\231\245 Hearts/8 - CoffeeScript.coffee"	
+++ "b/\342\231\245 Hearts/8 - CoffeeScript.coffee"	
@@ -1,6 +1,8 @@
 class Card
-  constructor:(@rank, 
-               @suit) ->
-		
-card = new Card 8,"hearts"
-console.log(card)
+  constructor: (@rank,
+    @suit) ->
+
+card = new Card 8,
+  'hearts'
+
+console.log card
\ No newline at end of file
diff --git "a/\342\231\246 Diamonds/1 - HTML.html" "b/\342\231\246 Diamonds/1 - HTML.html"
index 60c3c51..3b96af5 100644
--- "a/\342\231\246 Diamonds/1 - HTML.html"	
+++ "b/\342\231\246 Diamonds/1 - HTML.html"	
@@ -1,6 +1,6 @@
 <figure class="card">
   <img src="/ace.png">
   <figcaption>
-    Ace of Diamonds 
+    Ace of diamonds 
   </figcaption>
 </figure>
diff --git "a/\342\231\246 Diamonds/10 - Elixir.ex" "b/\342\231\246 Diamonds/10 - Elixir.ex"
index ee92f70..62f0631 100644
--- "a/\342\231\246 Diamonds/10 - Elixir.ex"	
+++ "b/\342\231\246 Diamonds/10 - Elixir.ex"	
@@ -1,7 +1,7 @@
 defmodule Card do
   def rank, do: 10
-  def suit, do:'diamonds'
+  def suit, do: 'diamonds'
 
   IO.puts rank <> 'of' 
                <> suit
-end
+end
\ No newline at end of file
diff --git "a/\342\231\246 Diamonds/11 - Ruby.rb" "b/\342\231\246 Diamonds/11 - Ruby.rb"
index 794a594..bc6423f 100644
--- "a/\342\231\246 Diamonds/11 - Ruby.rb"	
+++ "b/\342\231\246 Diamonds/11 - Ruby.rb"	
@@ -1,7 +1,10 @@
-class < Card
-  def initialize
-    @name = 'Jack'
-    @value = 11
-    @suit = 'diamonds'
+class Card
+  attr_reader :rank, :suit
+
+  def initialize(rank, suit)
+    @rank = rank
+    @suit = suit
   end
 end
+
+card = Card.new('Jack', 'diamonds')
\ No newline at end of file
diff --git "a/\342\231\246 Diamonds/12 - Erlang.erl" "b/\342\231\246 Diamonds/12 - Erlang.erl"
index add872d..2adde68 100644
--- "a/\342\231\246 Diamonds/12 - Erlang.erl"	
+++ "b/\342\231\246 Diamonds/12 - Erlang.erl"	
@@ -1,7 +1,8 @@
 Card = #{
   rank => 12,
-  name => "Queen",
-  suit => "diamonds"},
-
-io:fwrite("~15p~n", 
-          [Card]),
+  suit => diamonds,
+  name => <<"Queen">>
+},
+io:format(
+  "~p~n",
+  [Card]).
\ No newline at end of file
diff --git "a/\342\231\246 Diamonds/13 - Cobol.cbl" "b/\342\231\246 Diamonds/13 - Cobol.cbl"
index 738686b..4dabb47 100644
--- "a/\342\231\246 Diamonds/13 - Cobol.cbl"	
+++ "b/\342\231\246 Diamonds/13 - Cobol.cbl"	
@@ -1,4 +1,8 @@
-01 x-Diamonds AS CONSTANT 'Diamonds'.
-01 x-card.
-02 x-rank pic 13 value 1.
-02 x-suit pic x(7) value x-Diamonds.
\ No newline at end of file
+78 DN VALUE
+    "Diamonds".
+01 CARD.
+    05 RANK PIC 99
+        VALUE 12.
+    05 SUIT PIC
+        X(8)
+        VALUE DN.
\ No newline at end of file
diff --git "a/\342\231\246 Diamonds/3 - Visual Basic.vbs" "b/\342\231\246 Diamonds/3 - Visual Basic.vbs"
index f5ead1b..1743609 100644
--- "a/\342\231\246 Diamonds/3 - Visual Basic.vbs"	
+++ "b/\342\231\246 Diamonds/3 - Visual Basic.vbs"	
@@ -1,6 +1,9 @@
-Dim card = New With {
-  .rank = 3,
-  .suit = "diamonds"
-}
+Dim card =
+  New With {
+    .Rank = 3,
+    .Suit = "diamonds"
+  }
 
-Printer.Print(card)
+Console.WriteLine(
+  $"{card.Rank} of " &
+  card.Suit)
\ No newline at end of file
diff --git "a/\342\231\246 Diamonds/4 - R.r" "b/\342\231\246 Diamonds/4 - R.r"
index fd8dbb6..c7001ff 100644
--- "a/\342\231\246 Diamonds/4 - R.r"	
+++ "b/\342\231\246 Diamonds/4 - R.r"	
@@ -5,4 +5,4 @@ deck <- data.frame(
 Four.of.Diamond <-
   deck$card[
     deck$suit=="diamonds"
-    & deck$rank=="4"]
+    & deck$rank==4]
\ No newline at end of file
diff --git "a/\342\231\246 Diamonds/5 - Dart.dart" "b/\342\231\246 Diamonds/5 - Dart.dart"
index 7598a8c..78cff79 100644
--- "a/\342\231\246 Diamonds/5 - Dart.dart"	
+++ "b/\342\231\246 Diamonds/5 - Dart.dart"	
@@ -1,6 +1,11 @@
-var card = { 
-  'rank': 5, 
-  'suit': 'diamonds' 
-};
+class Card{
+  int rank;
+  String suit;
+  Card(this.rank,
+       this.suit);
+  String toString()=>
+    '$rank of $suit';
+}
 
-print(card);
+final card=
+  Card(5,'diamonds');
\ No newline at end of file
diff --git "a/\342\231\246 Diamonds/6 - CSS.css" "b/\342\231\246 Diamonds/6 - CSS.css"
index 3e4759f..d06acd7 100644
--- "a/\342\231\246 Diamonds/6 - CSS.css"	
+++ "b/\342\231\246 Diamonds/6 - CSS.css"	
@@ -1,6 +1,8 @@
-.diamonds {
-  color: rgb(255, 0, 0);
+.diamonds::before {
+  content: "6♦";
+  background: rgb(255, 0, 0);
   font-family: Roboto;
-  background: #fff;
+  color: #fff;
   border-radius: 30px;
+  padding: 10px;
 }
diff --git "a/\342\231\246 Diamonds/7 - D.d" "b/\342\231\246 Diamonds/7 - D.d"
index 3d3bc0e..4aba417 100644
--- "a/\342\231\246 Diamonds/7 - D.d"	
+++ "b/\342\231\246 Diamonds/7 - D.d"	
@@ -1,6 +1,8 @@
+import std.stdio;
+
 struct Card {
   int rank;
   string suit;
 }
 auto card = 
-  Card(7, "diamonds");
+  Card(7, "diamonds");
\ No newline at end of file
diff --git "a/\342\231\246 Diamonds/8 - Java.java" "b/\342\231\246 Diamonds/8 - Java.java"
index 6c7d987..b18a259 100644
--- "a/\342\231\246 Diamonds/8 - Java.java"	
+++ "b/\342\231\246 Diamonds/8 - Java.java"	
@@ -1,7 +1,10 @@
 import deck.Suit;
 
-public class Card {
-  int rank = 8;
-  Suit suit = 
-       Suit.DIAMONDS;
-}
+public record Card(
+  int rank,
+  Suit suit
+) {}
+
+Card card =
+  new Card(9,
+    Suit.CLUBS);
\ No newline at end of file