Refresh code, fixes #34

♠ 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).

♠ 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"}

♠ 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/'

♠ Spades/13 - SQL.sql

@@ -1,4 +1,4 @@
-SELECT card FROM deck
-  WHERE rank=13
-  AND suit="spades"
-  AND name="king";
+SELECT * FROM cards
+  WHERE rank = 13
+  AND suit = 'spades'
+  LIMIT 1;

♠ 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" 

♠ 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);

♠ 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')

♠ 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"
+}

♠ 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;
+  Card.Rank := 9;
+  Card.Suit := 'spades';
+end.

♣ 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"
+)

♣ 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
+)

♣ 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);

♣ 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$

♣ 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>

♣ Clubs/2 - MIPS.s

@@ -1,3 +1,5 @@
-.data
-    rank: .word 2
-    suit: .asciiz "clubs"
+    .data
+    .globl card_rank, card_suit
+
+card_rank:  .word   2
+card_suit:  .asciiz "clubs"

♣ 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   

♣ 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"
+};

♣ 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');

♣ 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);
+typedef struct {
+    int         rank;
+    const char *suit;
+} Card;
+
+Card card = { 7, "clubs" };

♥ 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

♥ 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'

♥ Hearts/13 - Regex.txt

@@ -1 +1 @@
-/^([Kk]ing|13)(?:of)?([hH]earts)$/
+/^([Kk]ing|13)(?:of )?([hH]earts)$/i

♥ 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()

♥ 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');

♥ 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")

♥ 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)))

♥ 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";