Classement du World Bowling

Beaucoup de gens sont allés à leur centre de bowling local pour jouer quelques parties de bowling, et beaucoup de gens continuent à avoir du mal à calculer leurs scores. Le World Bowling a introduit un système de notation simplifié afin d'attirer plus de gens dans ce sport. Ce système de notation est utilisé dans les jeux internationaux.

Le système de notation fonctionne comme ceci (de Wikipedia ):

Le système de notation du World Bowling - décrit comme la "notation de la trame actuelle" [32] - garantit les broches comme suit:

• grève: 30 (indépendamment des résultats des rôles suivants)
• de rechange: 10 plus de chutes au premier rouleau du cadre actuel
• ouvert: chute totale pour l'image actuelle

Si vous n'êtes pas familier avec le bowling à dix quilles, voici un récapitulatif.

Il y a 10 quilles à la fin d'une piste de bowling où le but est de les abattre toutes avec une boule de bowling. Vous obtenez 2 rouleaux d'une balle pour tenter de les faire tomber, de préférence en les renversant tous avec le premier lancer (connu sous le nom de frappe ). Si vous obtenez un coup, ce cadre est terminé et vous n'avez pas besoin de faire rouler la balle une deuxième fois. Une grève vaut 30.

Si vous ne renversez pas les dix, vous obtenez un autre jet. Si vous abattez toutes les broches restantes, cela s'appelle une pièce de rechange . Le score vaut 10 quilles + le nombre de quilles renversées au premier lancer. Par exemple, si j'ai abattu 7 broches, puis réussi à abattre les 3 restantes, cela vaudrait 17.

Si après votre deuxième lancer, vous ne parvenez pas à abattre les dix, cela s'appelle un cadre ouvert . Le score vaut le nombre total de broches renversées pour cette image.

Il y a 10 images dans un jeu . Si vous êtes familier avec le score de bowling traditionnel, vous n'obtenez pas de jet supplémentaire dans le 10ème cadre avec le World Bowling Scoring. Dans le classement traditionnel des quilles, il faut 12 frappes consécutives pour obtenir un score parfait de 300, tandis que la notation du World Bowling ne nécessite que 10 frappes consécutives.

Défi

Votre défi consiste à calculer le score donné à partir d'une feuille de score.

Sur une feuille de match, un échec est indiqué par un tiret ( - ), une frappe avec un X et un remplaçant avec une barre oblique ( / ). Si ceux-ci ne s'appliquent pas, le nombre de chutes est simplement indiqué par un nombre (1-9). Les fautes et les écarts sont également enregistrés sur les feuilles de score, mais vous n'avez pas à vous en préoccuper.

Contribution

Vous recevrez une chaîne composée de scores pour chaque image, et vous aurez un total de dix images. Chaque trame aura jusqu'à deux valeurs, ou aussi peu qu'une valeur s'il y a eu une grève. Votre entrée peut être un paramètre de chaîne d'une fonction, lu à partir d'un fichier ou de STDIN.

Par exemple, si j'ai abattu 1 broche sur mon premier rouleau, puis abattu 2, le cadre ressemblerait à "12". Cela ne signifie pas 12 (douze), mais signifie 1 et 2, pour un total de 3.

Si je manquais chaque épingle avec les deux rouleaux (boules de gouttière), cela ressemblerait à ceci "-" (score de 0).

Chaque cadre sera séparé par un espace.

Exemple d'entrée

-- 9- -9 X -/ 8/ 71 15 44 X

Pour décomposer cet exemple,

• Image 1 (-) - les deux rouleaux manqués. marqué 0
• Image 2 (9-) - renversé 9 sur le premier rouleau, raté sur le deuxième rouleau. Score 9
• Frame 3 (-9) - Tout manqué sur le premier, obtenu 9 sur le second. Score 9
• Frame 4 (X) - Strike, renversé tous les dix. Score 30
• Frame 5 (- /) - Spare, a tout raté le premier, a tout renversé avec le 2e lancer. Score 10 + 0 = 10
• Cadre 6 (8 /) - Rechange, 8 broches sur le premier rouleau, renversé les 2 autres avec le deuxième rouleau. Score 10 + 8 = 18
• Cadre 7 (71) - cadre ouvert, 7 broches sur le premier rouleau, 1 broche sur le deuxième rouleau. Score 7 + 1 = 8
• Les cadres 8, 9, 10 suivent les mêmes exemples que ci-dessus.

Production

La sortie sera simplement une valeur qui a la somme des scores des 10 images. En utilisant l'exemple d'entrée, la sortie sera 128. Votre sortie peut être une chaîne ou un type numérique. Il peut s'agir d'une valeur de retour de fonction ou écrite dans STDOUT.

Règles

• Supposons que l'entrée sera toujours valide. Par exemple, une trame non valide serait "/ 8", "XX", "123", "0", etc.
• Vous n'avez pas à vous soucier des écarts ou des fautes.
• Votre code peut être un programme complet ou une fonction qui prend une chaîne et renvoie le score.
• Votre code ne doit lever aucune exception.
• C'est le golf de code, la réponse avec le moins de victoires d'octets.
• Les langues qui utilisent des inclusions ou des importations doivent inclure les instructions d'importation dans leur code et compter dans le nombre d'octets.

Cas de test

"-- 9- -9 X -/ 8/ 71 15 44 X" -> 128
"-- -1 2- 12 22 5- 42 61 8- 72" -> 45
"X X X 1/ 2/ 3/ 4/ 5/ -- 9/" -> 174
"X X X X X X X X X X" -> 300
"-- -- -- -- -- -- -- -- -- --" -> 0

05AB1E , 12 11 octets

Code

S'/T:'X30:O

Essayez-le en ligne!

Explication

S             # Split the string into a list of characters
 '/T:         # Replace '/' with 10
     'X30:    # Replace 'X' with 30
          O   # Sum up the array (ignoring non-number elements)

JavaScript, 43 octets

f=([c,...s])=>c?({'/':10,X:30}[c]|c)+f(s):0

f=([c,...s])=>c?({'/':10,X:30}[c]|c)+f(s):0

Score(<input style="width:200px" oninput="o.value=f(this.value)" />) = <output id=o></output>

Comment ça marche

Nous convertissons chaque personnage en son point:

• «X» vaut 30 points
• '/' vaut 10 points
• '1' .. '9' vaut 1 .. 9 points
• d'autres personnages valent 0 point

Additionnez ensuite tous les points.

Convertir

L' opérateur OR au niveau du bit |convertit son opérande en Int32 avant d'opérer. Lors de la conversion en Int32, la valeur est d'abord convertie au format Number (64bit float number), puis jonction en Int32 (ou convertie en 0 si non valide).

• ToInt32({'/':10,X:30}[c]) pourrait se lire comme suit:
  • si c == '/': le résultat est 10;
  • si c == 'X': le résultat est 30;
  • sinon: le résultat est ToInt32(undefined)-> ToInt32(NaN)-> 0;
• ToInt32(c) pourrait être:
  • si c == '1' ... '9': le résultat est 1 .. 9;
  • si c == '': Number(c)est 0, le résultat est 0;
  • sinon: Number(c)est NaN, le résultat est 0;
• Au niveau du bit ou ici est identique à "ajouter", car l'un de ses opérandes sera 0

Somme

• [c,...s] = slaissez c = s[0], et s = s.slice(1);
  • si s est une chaîne vide, c n'est pas défini ;
  • sinon, c est la première lettre de s
• non défini est faux, la chaîne non vide (y compris l'espace) est vraie

Stax , 13 octets

─*âⁿ┴8òt↨HÉ÷8

Exécuter et déboguer

Déballé, non golfé et commenté c'est ainsi.

F               for each character in input, execute...
 9R$'/20*+'X+   build the string "123456789////////////////////X"
 I              get the index of the current character in string
 ^+             increment and add to running total
                (index is -1 when no match; space and dash are 0 score)

Exécutez celui-ci

Python 2 , 55 octets

lambda l:sum(map(('123456789/'+'X'*20).rfind,l))+len(l)

Essayez-le en ligne!

Basé sur l'approche d'index de chaîne de nombreuses solutions.

Java 8, 64 59 46 octets

s->s.map(c->c<46?0:c<48?10:c>87?30:c-48).sum()

-5 octets grâce à @Neil .
-13 octets grâce à @ OlivierGrégoire .

Explication:

Essayez-le en ligne.

s->               // Method with an IntStream parameter and integer return-type
  s.map(c->       //  Loop over the characters
          c<46?   //   If the character is a space or '-':
           0      //    Count it as 0
          :c<48?  //   Else-if it's a '/':
           10     //    Count it as 10
          :c>87?  //   Else-if it's an 'X':
           30     //    Count it as 30
          :       //   Else (it's a digit):
           c-48   //    Count it as the value of the digit
       ).sum()    //   And sum everything

F #, 106 103 octets

let s c=Seq.sumBy(fun x->if x=' '||x='-'then 0 elif x='X'then 30 elif x='/'then 10 else int(string x))c

Essayez-le en ligne!

Je pense que ce puzzle (sans le golf) serait une excellente question pour un guide "Programmation fonctionnelle pour débutants". Et je devrais savoir!

-3 de Kevin Cruijssen, pour avoir remarqué que les espaces entre 'et "puis" peuvent être supprimés. Merci!

La solution Stax de recursive qui utilise des index de chaîne est très très bonne. Si vous le portez sur F #, vous pouvez l'obtenir pour 77 octets :

let s c=Seq.sumBy(fun x->"123456789/???????????????????X".IndexOf(char x)+1)c

Essayez ceci en ligne!

Gelée , 17 octets

ḟ⁾ -“X0/⁵”yV€o30S

Un lien monadique acceptant une liste de caractères et renvoyant un entier

Essayez-le en ligne!

Comment?

ḟ⁾ -“X0/⁵”yV€o30S - Link: list of characters
 ⁾ -              - literal list of characters [' ','-']
ḟ                 - filter discard
    “X0/⁵”        - literal list of characters ['X','0','/','⁵']
          y       - translate (change 'X's to '0's and '/'s to '⁵'s)
           V€     - evaluate €ach character as Jelly code (the '⁵'s become 10s)
             o30  - logical OR with 30 (change all instances of 0 to 30)
                S - sum

Également à 17 ans:

”/ẋ20ØD;;”XḊiЀ⁸S

Essayez ça

Perl 6 , 30 octets

{TR'-/X '0㉈㉊'.univals.sum}

Essayez-le en ligne!

Rétine , 17 octets

X
///
/
55
\d
*
_

Essayez-le en ligne!

Je ne suis pas tout à fait au courant des derniers changements de Retina. Je vais m'intéresser davantage à eux lorsque j'en aurai l'occasion et voir s'il y a de nouvelles astuces pour jouer au golf. Le code transforme toutes les frappes en trois pièces de rechange, toutes les pièces de rechange en dix points, puis tous les points pour le nombre correspondant de soulignements. Ensuite, il compte le nombre de soulignements.

Perl 5 -pF , 30 27 octets

-3 octets grâce à Xcali

#!/usr/bin/perl -pF
$\+=m%/%+3*/X/.0+$_ for@F}{

Essayez-le en ligne!

05AB1E , 14 octets

þ`I…/aXS¢ƶT*`O

Essayez-le en ligne!

Explication

þ`              # Push the digits of the input on the stack (removes everyting that isn't a digit)
  I…/aXS        # Push the input and the array "/","a","X" on the stack
        ¢       # Index of each element in the input ...
         ƶT*    # ... multiplied by its index (a could be anything that can't be found in the input), multiplied by 10.
            `O  # Sum the stack, implicit display

J , 33 octets

1#.31|('-123456789',20 1#'/X')i.]

Essayez-le en ligne!

Explication:

] l'entrée

('-123456789',20 1#'/X')ajoute 20 /et un Xà la chaîne-123456789

i. trouve les indices de l'entrée dans la chaîne ci-dessus

31|modulo 31 - pour se débarrasser des espaces - ils ne sont pas trouvés dans la chaîne, donc i.retourne 31 pour eux

1#. trouve la somme des indices

Python 2 , 67 octets

-3 octets grâce à @KevinCruijssen

lambda I,p='-123456789/'+20*'X':sum(p.rfind(i)for i in I if i in p)

Essayez-le en ligne!

Gelée , 12 octets

⁾/X,“½œ‘y|0S

Essayez-le en ligne!

Comment ça marche

⁾/X,“½œ‘y|0S  Main link. Argument: s (string)

⁾/X,“½œ‘      Literal; yield [['/', 'X'], [10, 30]].
        y     Transliterate; replace '/' with 10, 'X' with 30.
         |0   Bitwise OR with 0. Bitwise operators attempt to cast to int, mapping 
              '0', ..., '9' to 0, ..., 9. All other characters map to 0.
           S  Take the sum.

Python 3.6 , 54 octets

lambda s:sum(map(f'123456789/{6**24}X'.find,s),len(s))

Essayez-le en ligne!

Kotlin , 50 octets

x->x.sumBy{"123456789/_${Math.E}_X".indexOf(it)+1}

Essayez-le en ligne!

J'espère que ce n'est pas contre les règles de répondre à votre propre question, mais je voulais participer au plaisir.

Math.Eproduit la valeur 2.718281828459045. Je l'utilise pour créer une chaîne de remplissage pour pousser X en position 30.

indexOfobtient la position (basée sur 0) du caractère dans la chaîne "12345 ...". S'il n'est pas trouvé, il renvoie -1. Nous ajoutons 1 pour faire ces 0, et cela fait également de la position basée sur 0 la valeur de la chaîne.

PHP, 119 109 octets

-10 octets grâce à @KevinCruijssen

<?foreach(explode(" ",$argv[1])as$f){[$a,$b]=str_split($f);$n+=$f==X?30:(int)$a+($b=='/'?10:(int)$b);}echo$n;

Essayez-le en ligne!

Fusain , 23 octets

ＩΣＥχΣＥＳ⎇№-/Xλ×χ⌕-//XλＩλ

Essayez-le en ligne! Le lien est vers la version détaillée du code. Explication:

  Ｅχ                    Map over 10 frames
      Ｓ                 Input the frame
     Ｅ                  Map over the characters
            λ           Current character
        №-/X            Search the literal string `-/X`
                    λ   Current character
               ⌕-//X    Find position in literal string `-//X`
             ×χ         Multiply by predefined variable 10
                      λ Current character
                     Ｉ  Cast to integer
       ⎇                Ternary
    Σ                   Sum for each frame
 Σ                      Sum over frames
Ｉ                       Cast to string for implicit print

Rouge , 93 octets

func[b][s: 0
foreach c trim/all b[s: s - 1 + index? find{-123456789/...................X}c]s]

Essayez-le en ligne!

C # (.NET Core) , 40 + 18 = 58 octets

using System.Linq;
s=>s.Sum(c=>c>87?30:c<46?0:c<48?10:c-48)

Essayez-le en ligne!

C # (Visual C # Interactive Compiler) , 53 octets

Write(ReadLine().Sum(c=>c>87?30:c<46?0:c<48?10:c-48))

Essayez-le en ligne!

SNOBOL4 (CSNOBOL4) , 169 151 147 octets

	F =INPUT ' '
R	F '-' =0	:S(R)
T	F 'X' ='_'	:S(T)
S	F LEN(1) . X ARB . Y ' ' REM . F	:F(O)
	X '_' =30
	Y '/' =10
	S =S + X + Y	:(S)
O	OUTPUT =S
END

Essayez-le en ligne!

	F =INPUT ' '					;* read input and append a space
R	F '-' =0	:S(R)				;* replace - with 0
T	F 'X' ='_'	:S(T)				;* replace X with _
S	F LEN(1) . X ARB . Y ' ' REM . F	:F(O)	;* set first character to x, remainder up to ' ' to y, and remainder to F
	X '_' =20					;* replace _ in x with 20
	Y '/' =10					;* replace / in y with 10
	S =S + X + Y	:(S)				;* else X and Y are their values so we can sum them
O	OUTPUT =S					;* output the sum
END

Clojure , 70 octets

#(reduce(fn[s i](+ s(case i\- 0\/ 10\X 30\space 0(bigint(str i)))))0%)

Essayez-le en ligne!

Lorsque vous reduceutilisez une chaîne, chaque caractère est en fait converti en un caractère - qui aurait pensé. Mais ce méchant, je dois écrire \spaceet cela fait plus de mal que l'on puisse imaginer. De plus, lors de la création d'un nombre réel à partir d'un caractère, la combinaison de bigintetstr semble être la seule combinaison utilisable.

Eh bien, en dehors de toutes ces luttes: fonction anonyme qui renvoie le score comme un naturel.

Rubis , 38 octets

->s{s.tr("/X -",":N00").sum-s.size*48}

Essayez-le en ligne!