Scénario: lors de la programmation, vous avez une soudaine envie nostalgique des jeux des années 80 et du fromage.

Exigences: Créez un programme GUI (le texte ne fonctionnera probablement pas) pour Simon, le jeu. L'entrée peut être en cliquant ou en appuyant sur une touche. Vous devez diviser l'écran en 4 régions: jaune, bleu, rouge, vert. Lorsque le jeu démarre, une couleur aléatoire s'allume et vous l'activez. Ensuite, deux lumières s'allument, l'une après l'autre, et vous devez les activer dans l'ordre, etc. Le jeu se termine lorsque vous appuyez sur la mauvaise couleur.

Bonus:

-100 si vous incluez le son (une note différente jouée lorsque vous appuyez sur chaque région et lorsque le jeu vous montre les couleurs)

-25 si vous incluez un compteur de score.

Bash 318 297 281 273 268 244 240-125 = 115

Il s'agit principalement d'une réponse à "Le texte ne fonctionnera probablement pas"; le script bash basé sur du texte suivant fonctionne correctement dans Konsole, gnome-terminaletc. sur ma machine Ubuntu 14.04. Pour créer les régions de couleur, il définit la couleur d'arrière-plan du texte. En fait, l'ajout de texte rend le jeu plus accessible aux joueurs daltoniens. Pour rendre le jeu encore plus accessible, il lit les caractères sur lesquels le joueur doit appuyer (il suppose qu'il espeakest installé). Il suppose également que la seule correspondance de fichier /d*/ur*/est /dev/urandom. Pour que les régions de couleur soient de taille non triviale, vous souhaiterez probablement définir une taille de texte assez grande. De plus, si vous souhaitez que les régions de couleur soient des quadrants, vous devez l'exécuter dans un terminal de deux caractères de large.

Pour jouer, appuyez sur y, r, g ou b selon le cas.

cat <<"EOF"|sed s/E/`echo -e '\E'`/>simon_golf.sh;bash simon_golf.sh;wc simon_golf.sh
d(){ echo Ecx1r09mRx2g10mGx3y11mYx4b14mBx0m$s|sed s/.$1"//
s/[rgyb]..//g
s/x/E[48;5;/g";};x(){ d $c;espeak $c;d j;};l(){
for c in $o;{ eval $1;x;};};f(){ o=$o\ `tr -dc yrgb</d*/ur*|head -c1`
l;l 'read -n1 i;[ $c = $i ]||exit;let s++';f;};f
EOF

Cette solution contient deux caractères ESC non imprimables. Bien que ces caractères ESC apparaissent dans l'aperçu, ils semblent être supprimés après la soumission, donc le code ci-dessus est un wrapper qui génère et exécute le golfé simon_golf.sh.

Voir aussi la version originale non golfée et la version 256 octets légèrement plus jouable .

Les captures d'écran ci-dessous sont lorsque la lumière jaune est allumée et que le score du joueur est de 7. La capture d'écran à droite a été désaturée pour simuler le daltonisme.

Scratch, 1604-125 = 1479

Je suis ici pour le plaisir, pas pour le golf.

Edit: mise à jour de la méthode de notation basée sur le consensus de la communauté .

Programme principal:

Sprites individuels:

C'est le sprite avec le numéro 0. Les autres sprites ont le même script, sauf le nombre.

Jouez avec en ligne .

Code utilisé pour le comptage d'octets: (Utilisation d'extraits de code pour masquer le code)

when green flag clicked
set [s v] to [0]
delete (all v) of [a v]
forever 
  set [x v] to (pick random (0) to (3))
  add (x) to [a v]
  set [i v] to [1]
  repeat (length of [a v] :: list) 
    broadcast (item (i) of [a v] :: list)
    wait (0.3) secs
    change [i v] by (1)
  end
  set [i v] to [1]
  wait until <(x) = [4]>
end

when I receive [0 v]
play sound [0 v]
next costume
wait (0.3) secs
next costume

when this sprite clicked
broadcast [0 v]
wait (0.3) secs
if <[0] = (item (i) of [a v] :: list)> then 
  change [i v] by (1)
else 
  stop [all v]
end
if <(i) > (length of [a v] :: list)> then 
  set [x v] to [4]
  change [s v] by (1)
end

when this sprite clicked
broadcast [3 v]
wait (0.3) secs
if <[3] = (item (i) of [a v] :: list)> then 
  change [i v] by (1)
else 
  stop [all v]
end
if <(i) > (length of [a v] :: list)> then 
  set [x v] to [4]
  change [s v] by (1)
end

when I receive [3 v]
play sound [3 v]
next costume
wait (0.3) secs
next costume

when I receive [1 v]
play sound [1 v]
next costume
wait (0.3) secs
next costume

when this sprite clicked
broadcast [1 v]
wait (0.3) secs
if <[1] = (item (i) of [a v] :: list)> then 
  change [i v] by (1)
else 
  stop [all v]
end
if <(i) > (length of [a v] :: list)> then 
  set [x v] to [4]
  change [s v] by (1)
end

when this sprite clicked
broadcast [2 v]
wait (0.3) secs
if <[2] = (item (i) of [a v] :: list)> then 
  change [i v] by (1)
else 
  stop [all v]
end
if <(i) > (length of [a v] :: list)> then 
  set [x v] to [4]
  change [s v] by (1)
end

when I receive [2 v]
play sound [2 v]
next costume
wait (0.3) secs
next costume

_{Remarque: Code généré automatiquement à l'aide du générateur de blocs de travail , modifié car le générateur ne gère pas correctement les nombres décimaux (en traitant 0,3 comme 0).}

Capture d'écran:

Remarque: veuillez ne pas appuyer sur deux boutons dans les 0,3 secondes.

Mathematica, 409 - 125 = 284

k = 2;
p = Tuples[{0, 1}, 2];
f[c_, p_] := 
 EventHandler[{c, Rectangle[p]}, 
  "MouseClicked" :> (AppendTo[x, p]; Beep[]; g)]
h[R_] := (i = 1; 
  RunScheduledTask[
   H = If[OddQ@i, 
     Beep[]; {EdgeForm[{Thickness[0.02], Black}], FaceForm[], 
      Rectangle@R[[Ceiling[i/2]]]}, {}]; i++, {.3, 2 Length@R}])
s := (m = 0; x = {}; h[R = RandomChoice[p, k]];)
g := (m++; If[Take[R, m] != x, k = 2; s, If[m == k, k++; s]])
Dynamic@Graphics[{MapThread[f, {{Yellow, Red, Blue, Green}, p}], H}, 
  PlotLabel -> k]
s

Windows PowerShell (CLI), 272 - 100 - 25 = 147

$d={param($c)cls;sleep -m 99;'R','Y','Blu','Gre'|
%{Write-Host '#' -N -F "$(if($i%4-ne $c){'Dark'})$_";
$i++}};$b={param($c)&$d $c;[console]::Beep(($c+1)*99,700);&$d};
$m=@();$s=0;for(){$m+=0..3|Get-Random;$m|%{&$b $_};$m|%{
if((read-host)-ne $_){$s;exit}&$b $_};$s++;sleep 1}

J'ai ajouté des retours à la ligne ici pour éviter le défilement latéral, mais cela fonctionne comme une seule ligne, donc le nombre de caractères est sans retour à la ligne.

Capture d'écran:

Jouer:

• Ouvrez PowerShell ISE (v3), collez le script dans l'éditeur de texte, appuyez sur F5 pour exécuter.
• Le jeu allume une couleur, émet un son, puis attend l'entrée
• Appuyez sur un chiffre (0 = rouge, 1 = jaune, 2 = bleu, 3 = vert) puis sur Entrée.
• Si vous vous trompez, il imprime le score et quitte. (NB: cela pourrait quitter votre console).
• Si vous avez raison, cela vaut pour deux notes.
• Vous devez appuyer sur Entrée entre chaque note lors de la lecture de la séquence.

Commentaires:

• "divisez l'écran en 4 régions" - vous n'avez pas dit que ce devait être des quartiers, donc ils ne le sont pas.
• Il est difficile de voir la lumière bleue s'allumer sur le fond bleu, mais c'est le cas.
• Veuillez exécuter dans PowerShell ISE - dans l'invite normale "DarkYellow" s'affiche en blanc.
• Vous pourriez sans doute jouer au golf avec 28 autres personnages en supprimant une partie du timing (rendant le jeu jouable) et en interprétant la règle "son (une note jouée en appuyant et lorsque le jeu vous montre les couleurs)" pour signifier "ils peuvent tout sera le même son - erreur par défaut DING ", mais je pense que c'est trop loin contre l'esprit de celui-ci.

ZXBasic: 422 - 100 - 25 = 297

Cela compte certainement comme une envie nostalgique des années 80 ...

ZXBasic utilise une combinaison de commandes de type FreeBASIC et ZX Spectrum BASIC pour permettre aux boucles et aux répétitions qui se transforment ensuite au format TZX de se charger dans un émulateur Spectrum.

Cette version change la bordure (bien qu'une légende à l'écran indique sur quelle touche appuyer). Il joue les mêmes notes que le jeu Simon original ( http://en.wikipedia.org/wiki/Simon_%28game%29 ).

d=0.5:s=0:l=1:t=1:n$="4261":dim m(4)=>{-8,9,1,4}
border 7
while l>0
 cls:a$="":print at 1,1;"Level: ";t;at 2,1;"Score:";s::for i=1 to 4:print at 0,i;paper val(n$(i));ink 0;i:next
 for i=1 to t
  c=1+int(rnd*4)
  border val(n$(c)):beep d,m(c):border 7
  a$=a$+str(c)
 next
 print at 10,1;"your turn"
 p$="":i=1
 do
  pause 100:k$=inkey:print at 6,i;k$
  if k$=a$(i) then s=s+1:print at 2,7;s:beep d,m(val(k$)):i=i+1
  else l=l-1:i=t+1:print "bad luck!"
  end if
 loop until i>t 
 t=t+1:pause 25
end while

HTML5 et Javascript, 1118-100-25 = 993 octets

Version bien trop gonflée HTML + Js.

Lit les sons via l' API Web Audio .

Les fréquences des notes doivent également être celles de Simon, les couleurs et le placement des couleurs.

Il y a une démo en ligne ici: http://www.dantonag.it/miniSimon.html . Fonctionne dans les navigateurs compatibles Web Audio (au moins Chrome et Firefox, IE ne le prend pas en charge, AFAIK).

<html><script>
var hc=["#0f0","red","#ff3","blue"],lc=["#090","#930","#cc0","#33c"],nt=[391,329,261,195],ln=[],qpos=0,pm=0,x,ct=new AudioContext;function ps(a,d){var b=ct.createOscillator();b.frequency.value=d;b.connect(ct.destination);var c=ct.createGain();b.connect(c);c.connect(ct.destination);c.gain.value=-.5;x[a].style.backgroundColor=hc[a];b.start(0);setTimeout(function(a,b){a.stop(0);x[b].style.backgroundColor=lc[b]},500,b,a)}
function w(a){2==pm&&(a!=ln[qpos]?(pm=3,document.getElementsByTagName("span")[0].innerHTML="game over!",ps(a,156)):(qpos++,ps(a,nt[a]),qpos>=ln.length&&(pm=qpos=0)))}function ml(){if(0==pm)document.getElementsByTagName("div")[0].innerHTML=ln.length,ln.push(Math.floor(4*Math.random())),pm=1;else if(1==pm){var a=ln[qpos];qpos<ln.length?(ps(a,nt[a]),qpos++):(qpos=0,pm=2)}setTimeout(ml,500)}window.onload=function(){setTimeout(ml,1);x=document.getElementsByTagName("td")};</script><div>0</div><table cellpadding=40><tr><td bgcolor=#090 onmousedown=w(0)><td bgcolor=#930 onmousedown=w(1)><tr><td bgcolor=#cc0 onmousedown=w(2)><td bgcolor=#33c onmousedown=w(3)></table><span></span>

Mon record est de 15 (je suis assez mauvais à ce match). Quel est ton?