Une simple bagatelle

13

Le défi

Étant donné une planche de bagatelle comme celle ci-dessous:

|                    |
|    /\            / |
|      \            /|
|  \      \ /\    \  |
|   \   /       \    |
|\     /   /  \      |
|   \            / \ |
|    \               |
|  \    / \ /\    \  |
|\     /   /  \     /|
|                /   |
|    /\         /  / |
|              /     |
|\     /   /  /      |
|                    |
----------------------

votre tâche consiste à transformer une liste de «lancers» en score.

La planche aura toujours 20 caractères (plus 2 bords) de large, mais de hauteur variable. Chaque «lancer» est un nombre représentant l'endroit où le ballon tombe dans le plateau, commençant à 0 pour l'extrême gauche jusqu'à 19 pour l'extrême droite. Chaque balle tombera directement à moins qu'elle ne rencontre a /ou a \. La rencontre avec a /déplace la balle d'une colonne vers la gauche et a \déplace la balle d'une colonne vers la droite. Après avoir été déplacé, le ballon continue tout droit comme auparavant. Le score d'un lancer dépend de l'endroit où le ballon touche le bas du plateau.

Les scores pour chaque position finale sont les suivants:

|                    |
----------------------
 01234567899876543210

et sont les mêmes pour toutes les planches. Les première et dernière lignes seront toujours vides. La balle est garantie pour atteindre le fond , peu importe où il est passé de, donc il n'y aura pas de conseils où il peut se piégés par \/, \|ou des |/combinaisons.

Contribution

L'entrée se fera sur STDIN et consistera en un tableau suivi d'une ligne vierge suivie d'une liste de nombres séparés par des espaces représentant les lancers.

Production

Ouput devrait être le score total pour le jeu donné.

Quelques exemples

Contribution

|                    |
| \                  |
|  \                 |
|   \                |
|    \               |
|     \              |
|      \             |
|       \            |
|        \           |
|         \          |
|          \         |
|           \        |
|            \       |
|             \      |
|              \     |
|               \    |
|                \   |
|                 \  |
|                    |
|                    |
----------------------

1 4 2 19 0 2 4 3 17 13 16

Production

Contribution

|                    |
| \                / |
|  \              /  |
|   \            /   |
|    \          /    |
|     \        /     |
|      \      /      |
|       \    /       |
|        \  /        |
|                    |
|                    |
|                    |
|                    |
|                    |
|                    |
|                    |
|                    |
|                    |
|                    |
----------------------

15 10 3 8 18 19 0 6 7 10

Production

Contribution

|                    |
| ////////////////// |
| \\\\\\\\\\\\\\\\\\ |
| ////////////////// |
| \\\\\\\\\\\\\\\\\\ |
| ////////////////// |
| \\\\\\\\\\\\\\\\\\ |
| ////////////////// |
| \\\\\\\\\\\\\\\\\\ |
| ////////////////// |
| \\\\\\\\\\\\\\\\\\ |
|                    |
----------------------

1 4 18 17 14 2 0 19 15

Production

Scripts de test

J'ai utilisé des scripts de test écrits par Joey et Ventero (j'espère que cela ne les dérange pas ...) pour créer des tests pour cette tâche: -

Usage: ./test [your program and its arguments]

C'est codegolf - la solution la plus courte l'emporte.

code-golf

— Gareth
source

Vous pourriez aussi avoir mon script de génération pour eux :-). J'ai finalement voulu le rendre public, mais tant qu'il a encore besoin d'être peaufiné pour de nombreuses tâches, je ne voulais pas le faire.

— Joey

@Joey Un script de génération serait un outil utile à disposition.

— Gareth

Les deux ensembles de tests devraient être corrigés maintenant.

— Gareth

3

GolfScript, 60 59 caractères

n/{},)\);{1>:x,,{.x=31%4%(+}%}%[10,.-1%+]+0@[~]{2${=}/+}/\;

J'étais tellement tenté d'écrire une solution qui fonctionne en redéfinissant les symboles /, \et space, mais c'est en fait assez cher (surtout une fois que vous ne pouvez plus utiliser l'original \).

31%4%(est entaillé de la solution de Keith Randall et des cartes les codes ASCII pour space, /et \à 0, -1, 1respectivement. (Voir l'historique des modifications).

— Peter Taylor
source

1

Étonnamment long pour GolfScript. :-) Comment avez-vous réussi à le faire fonctionner avec le script de test? Je n'ai eu que des erreurs quand j'ai essayé ./test ruby golfscript.rb peter.gs? Je lui ai lancé des tests en tant qu'entrée canalisée.

— Gareth

./test-bagatelle.sh `which golfscript.rb` bagatelle2.gs

— Peter Taylor

4

Python 2, 147 132 130 caractères

importer sys
s = 0
l = liste (sys.stdin)
pour t dans l [-1] .split ():
 p = int (t) +1
 pour r dans l [: - 3]: p- = "/".find(r[p])
 s + = min (p-1,20-p)
imprimer s

— cemper93
source

2

Peut s+=min(p,19-p)- être ?

— Keith Randall

2

for r in l[:-3]:p-=" /".find(r[p])devrait sauver quelques caractères

— gnibbler

1

Merci à vous deux. Surtout le truc de gnibbler est vraiment génial - mais ça ne peut pas faire de mal de connaître une fonction tri plus courte aussi;)

— cemper93

1

@gnibbler C'est une astuce de génie.

— Gareth

1

19-p+1 == 20-p

— Lowjacker

3

Python, 165 159 caractères

import sys
A=list(sys.stdin)
C=range(10)
C+=C[::-1]
for L in A[-4::-1]:C=[C[i+ord(L[i+1])%31%4-1]for i in range(20)]
print sum(C[int(x)]for x in A[-1].split())

Il commence par une rangée de scores et fonctionne de bas en haut, calculant ce que seraient les scores des balles commençant à chaque rangée.

— Keith Randall
source

list(sys.stdin)au lieu dereadlines()

— gnibbler

3

Ruby, 123 117 115 107 99 98 97

*b,_,_,n=*$<
p eval n.split.map{|k|i=k.to_i+1
b.map{|l|i-='\ /'.index(l[i])-1}
[i-1,20-i].min}*?+

— Lowjacker
source

1

Pourquoi utiliser le sauvetage? Vous ne pouvez pas couper deux lignes de b dans l'affectation initiale?

— migimaru

@migimaru: En effet. Mais je dois couper trois lignes, pas deux.

— Lowjacker

Droite. Je voulais dire deux lignes supplémentaires . Pardon.

— migimaru

1

vous pouvez utiliser à la i-='\ /'...place pour enregistrer un autre caractère

— gnibbler