Une autre question brillante de Stack Overflow s'est transformée en un défi de code-golf !

Écrivez un programme qui:

1. Accepte une chaîne comme entrée utilisateur (non canalisée ou argument de ligne de commande). Le type de données de l'entrée doit être une chaîne, si la langue effectue des évaluations automatiques en entrée, elle doit être convertie en chaîne.
2. Recherche l'index (basé sur 0 ou 1) du premier chiffre pair le plus bas .
3. Imprime 2 entiers , l'index et le chiffre pair le plus bas .
4. S'il n'y a pas de chiffre pair , retournez -1 comme index, le deuxième nombre peut être n'importe quoi.
5. Aux fins de ce zéro, ce n'est même pas .

Exemples de test, étant donné la chaîne de gauche, affichez les valeurs de droite:

25376  -->  0,2
523726 -->  1,2
583746 -->  4,4
53771  --> -1,0
_4___2 -->  5,2

Le gagnant: est le programme avec le plus petit nombre de caractères. Pas de bonus, pas de pénalités.

edit: (à propos de stdin) J'ai foiré la partie entrée utilisateur, essentiellement aucune donnée de tuyauterie et aucun argument de ligne de commande. Vous devez fournir une invite utilisateur quelconque dans le programme lui-même.

Golfscript, 26 (28) caractères

'#{gets}'.'246'&8+$1<.@\?

Exemple:

;'583746'
.'246'&8+$1<.@\?
#44

;'53771'
.'246'&8+$1<.@\?
#8-1

test en direct: http://golfscript.apphb.com/?c=Oyc1Mzc3MScKLicyNDYnJjgrJDE8LjA9QD8%3D

Explication:

• '#{gets}'est une évasion vers ruby ​​pour satisfaire les exigences d'E / S; STDIN est supposé être vide
• . clone l'entrée
• '246'&8+trouve quels chiffres pairs sont présents dans l'entrée, sauf qu'il 8est toujours conservé
• $1< trie la liste, puis prend le premier chiffre, mais le conserve sous forme de chaîne
• .@\?ordonne la pile {chiffre, entrée, chiffre}, puis trouve le chiffre dans l'entrée; merci @peterTaylor de m'avoir remarqué la signature [array, array] de ?.

J'ai été très audacieuse avec l'interprétation des spécifications cette fois; à savoir:

• La spécification ne prescrit pas dans quel ordre les entiers sont sortis; Utilisez la suggestion :x?xde l'autre @ peter pour corriger (je n'aime pas les variables temporaires.
• La spécification ne nécessite aucun délimiteur entre les deux entiers; puisque le chiffre trouvé est toujours un seul chiffre, cela n'a pas beaucoup d'importance. Si c'est le cas, ajoutez n@(qui effectue également l'échange), n\(qui ne le fait pas) ou ]`(qui formate la sortie comme ["8" -1]).

APL (37)

(Basé sur 1 par défaut, mais obéit ⎕IO)

{×⍴m←⍵/⍨⍵∊'2468':z,⍨⍵⍳⍕z←⌊/⍎¨m⋄¯1,0}⍞

Explication:

• ⍞: lire l'entrée utilisateur
• m←⍵/⍨⍵∊'2468': supprimez tous les caractères qui ne le sont pas 2468, stockez-les m.
• ×⍴m: voir s'il y en a
• :: Si c'est le cas:
  • z←⌊/⍎¨m: évaluez chaque caractère dans m, trouvez le nombre le plus bas et enregistrez-le z.
  • z,⍨⍵⍳⍕z: retourne l'index de zin ⍵, suivi de z.
• ⋄: Si non:
  • ¯1,0: revenir (-1, 0)

Python 3, 69

combinant des idées d' ici .

s=input();print(([(s.find(x),x)for x in'2468'if x in s]+[(-1,0)])[0]) 

Ruby, 60 caractères

x=gets.chars.sort.find{|c|c=~/[2468]/};p x ?$_.index(x):-1,x

• $_contient la dernière entrée lue par gets.
• pappelle inspectles arguments et affiche les résultats.

perl - - 94 - 53 caractères (ou 48)

Au lieu de index()l'approche basée sur zéro, nous utilisons poset commençons à un; pas de CPAN. Exécutez ceci avec perl -nEet il attendra l'entrée (dont il peut également recevoir STDIN).

La première //opération match ( ) fonctionne sur la valeur par défaut ( $_) de l'entrée, la correspondance avec les nombres pairs donnés, sortles correspondances dans un tableau, puis les stocke dans une "liste scalaire" ($m). Dans un contexte scalaire, la valeur de la liste du tableau trié est longue d'un élément et se compose donc du chiffre pair le plus bas du nombre.

Après avoir isolé le plus petit chiffre apparié, nous utilisons ensuite $mpour une deuxième opération de correspondance qui trouvera la première occurrence de la valeur de $mdans la chaîne d'origine. Nous utilisons toujours la valeur par défaut ici $_et nous enregistrons la correspondance par rapport au contenu de $min $1(la raison du ()contour $mdans la deuxième instruction). Après cela, poset sayfaites le reste (et en moins de caractères que indexet print).

perl -nE'($m)=sort/[2468]/g;/($m)/g;$1?say pos.",$1":say"-1,0"'
33467
3,4

Si l'ordre de sortie ou les virgules n'ont pas d'importance, il est possible de raccourcir ces 5 caractères:

($m)=sort/[2468]/g;/($m)/g;$1?say$1.pos:say"-10"

Dans ma tentative précédente, je me suis précipité et j'ai fait une erreur - je voulais juste battre le python et le rubis (mais j'ai échoué) ... soupir.

Félicitations au gagnant et aux autres participants pour leurs solutions intéressantes - en particulier pour perl6:-) Une adaptation Perl6 possible de cette approche pourrait être utilisée " .comb(suggéré sur freenode par Masak et.al. ).

$_=get;my $n=.comb(/<[2468]>/).min;/$n/;say $/.from//-1,",$/"

Perl 6, 37 55 60 caractères

$_=get;say m/<{~.comb(/<[2468]>/).min}>/.from//-1,',',$/.Int

EDIT: J'ai mal compris la question la première fois. Cette mise à jour devrait être correcte. Il trouve le plus petit nombre de 2,4,6 ou 8 que l'entrée contient, puis fait une correspondance regex avec l'entrée avec ce nombre le plus bas. $/.fromobtient la position de la correspondance et ',', $/.Intest une virgule plus la correspondance elle-même, ou 0 si le texte ne correspond pas.

Pendant que vous êtes ici, allez voter G. Cito , qui m'a aidé à corriger mon entrée dans les commentaires et sur irc :)

J, 44 caractères

echo(;{&i){._1,~(#~(#i)&>)'2468'i.~i=.1!:1]1

renvoie le dernier caractère de l'entrée si aucun chiffre pair n'est trouvé

Exemple:

   echo(;{&i){._1,~(#~(#i)&>)'2468'i.~i=.1!:1]1
523726
+-+-+
|1|2|
+-+-+
   echo(;{&i){._1,~(#~(#i)&>)'2468'i.~i=.1!:1]1
53771
+--+-+
|_1|1|
+--+-+

Explication:

• echo ... i=.1!:1]1est entrée / sortie. Bien plus longtemps que je ne le souhaite. L'entrée est également cachée i.
• '2468'i.~ trouve la première occurrence de chaque chiffre pair dans l'entrée, renvoyant la longueur d'entrée si le chiffre est introuvable
• (#~(#i)&>)lit "sélectionner par la longueur d'entrée étant supérieure à cela"; en d'autres termes, sélectionnez les indices qui pointent vers l'entrée. Bien plus longtemps que je ne le souhaite.
• _1,~ajoute -1 à l'arrière. Le soulignement est la façon dont J représente les valeurs négatives.
• {. sélectionne le premier élément
• (;{&i)le concatène avec le caractère saisi à cette position dans deux cases; puisque nous concaténons un nombre avec un caractère, la concaténation sans boxe ( ,) ne fera pas l'affaire. Si un affichage sans boîte est souhaité, l'index doit d'abord être formaté ( ":) au coût de deux caractères.

Python 2.7 - 76

Une réponse de référence que je m'attends à être battue. Mais pour commencer les gens:

s=raw_input()
print[(s.index(`e`),e)for e in[2,4,6,8]if`e`in s][:1]or(-1,0)

R, 104

y=as.integer(strsplit(scan(,""),"")[[1]]);z=which(!y%%2&y);a=z[which.min(y[z])];cat(a,"-1 0"[!sum(a)],y[a])

Exemples (dans R, l'index commence à 1):

_4_502
6  2

_3_501
-1 0 

583746
5  4

Powershell, 76 73 71

$s=read-host;2,4,6,8|%{if($i=$s.indexof("$_")+1){"$i,$_";break}};"-1,0"

• $s=read-host stocke les entrées utilisateur dans $s
• 2,4,6,8|%{...} exécute ce qui est à l'intérieur {}pour les chiffres 2,4,6 et 8
• $i=$s.indexof("$_")+1 définit l' $iindex basé sur 1 d'un chiffre dans $sou 0si le chiffre n'est pas trouvé
• if( $i=... ){...} la condition sera vraie quand $in'est pas0
• "$i,$_";break renvoie l'index et le chiffre et arrête l'exécution
• "-1,0" sinon sorties -1,0

C ++ 11, 173 (dont deux caractères de nouvelle ligne)

Voici la version compressée:

#include<iostream> 
#include<string> 
int main(){std::string s;std::cin>>s;for(char c:"2468")for(char&k:s)if(k==c){std::cout<<(&k-&s[0])<<','<<c;return 0;}std::cout<<"-1,8";}

Voici la version lisible:

#include<iostream>
#include<string>
int main() {
    std::string s; // auto s = ""s; (since C++14: -3 characters)
    std::cin >> s;
    for (char c : "2468")
        for (char& k : s)
            if (k == c) {
                std::cout << (&k - &s[0]) << ',' << c;
                return 0;
            }
    std::cout << "-1,8";
}

Voici une ancienne version:

C ++ 11, 175 (y compris deux caractères de nouvelle ligne)

Voici la version compressée:

#include<iostream>
#include<string>
int main(){std::string s;std::cin>>s;for(char c:"2468"){int i=s.find(c);if(i<s.size()){std::cout<<i<<','<<c;return 0;}}std::cout<<"-1,8";}

Voici la version lisible:

#include<iostream>
#include<string>
int main() {
    std::string s;
    std::cin >> s;
    for (char c : "2468") {
        int i = s.find(c);
        if (i < s.size()) {
            std::cout << i << ',' << c; 
            return 0;
        }
    }
    std::cout << "-1,8";
}

C, 80 caractères

main(){char a[81],b=strcspn((gets(a),a),"2468");printf("%d,%c",a[b]?b:-1,a[b]);}

C # - 124

Je suis un peu en retard à la fête

void Main(string[]a){var x=a[0].Where(w=>char.IsDigit(w));var y=x.Min();Console.Write(y%2==0?a[0].IndexOf(y)+","+y:"-1,0");}

Haskell, 79 caractères

s&d=filter((==d).snd)$zip[-1..]$'0':s
main=interact$show.head.("24680">>=).(&)

Cela fonctionne un peu vite et avec la mise en forme de sortie:

& echo 523726 | runhaskell 16083-LowEven.hs 
(1,'2')
& echo 583746 | runhaskell 16083-LowEven.hs 
(4,'4')
& echo 53771 | runhaskell 16083-LowEven.hs 
(-1,'0')
& echo _4___2 | runhaskell 16083-LowEven.hs 
(5,'2')
& echo 25376 | runhaskell 16083-LowEven.hs 
(0,'2')

PowerShell: 145 103

Changements par rapport à l'
erreur d'origine supprimée par commentaire du demandeur.

Code:

"$([array]::IndexOf(($s=(read-host)-split''|?{$_}),($x=$s|?{$_%2-eq0}|?{$_-gt0}|sort|select -f 1))),$x"

Procédure pas à pas:

"... "Tout dans les guillemets sera inclus dans la sortie.

$(... )Tout ce qui se trouve entre les parenthèses sera traité comme une commande et la sortie de ce code sera incluse à la place des commandes elles-mêmes.

[array]::IndexOf(... )Ceci est utilisé pour obtenir l'index d'un élément avec le tableau. Son premier paramètre est l'objet tableau à rechercher. Le deuxième paramètre est l'objet à trouver. Cela ne produit que l'index du premier élément correspondant. J'ai essayé simplement d'utiliser une IndexOfméthode directement contre $s(par exemple:, $s.IndexOf($x)mais cela échoue pour une raison que je n'ai pas encore compris - il prétend que la méthode n'existe pas sur cet objet.

(... L' )expression entre parenthèses sera le premier paramètre pourIndexOf .

$s= $ s sera une variable pour stocker l'entrée utilisateur.

(read-host)-split'' Obtient une entrée utilisateur et la divise en un tableau de caractères. »

|?{$_}Filtre les éléments de tableau vides supplémentaires générés par -split''.

,(... L' )expression entre parenthèses sera le deuxième paramètre pour IndexOf.

$x= $ s sera une variable pour stocker le plus petit chiffre pair de l'entrée utilisateur.

$s|?{$_%2-eq0} Extrait les nombres pairs de $ s.

|?{$_-gt0} Invalide zéro.

|sort Trie les objets restants, l'ordre par défaut est croissant.

|select -f 1 Prend le premier objet, qui sera désormais le chiffre pair le plus bas.

,$xLe code ci-dessus affichera l'index de notre chiffre pair le plus bas. Cela ajoute une virgule, puis génère le chiffre lui-même.

Remarques:

Il s'agit peut-être d'étirer un peu la règle n ° 4. S'il n'y a pas de chiffre pair, la sortie n'inclura pas de deuxième chiffre.

En outre, cela générera des erreurs non terminales si l'entrée comprend des éléments non numériques. Le script continue à fonctionner et donner une bonne sortie, mais vous pouvez définir $ErrorActionPreferenceà 'SilentlyContinue'avant de l' exécuter.

vb.net (108c)

Sub Main()
t=ReadLine()                          '12c
For Each c In "2468"                  '20c  
i=t.IndexOf(c)                        '14c
If i>=0 Then Exit For                 '21c
Next                                  ' 4c
WriteLine("{0},{1}",i,If(i<0,0,t(i))) '37c
End Sub

Sent légèrement car il exploite le réglage dynamique de VB. Option Explicit Off and Imports System.Console .

VB.net (193c) utilisant LINQ

Celui-ci utilise principalement une requête LINQ.

Dim r = From d In "2468" Group Join q In ReadLine.Select(Function(c, p) New With {.c = c, .i = p})
                              On d Equals q.c Into g = Group
                                        Skip While g.Count = 0 ' 138c
WriteLine(If(r.Any,r(0).g(0).i&","&r(0).g(0).c,"-1,0"))        '  55c

Golf-Basic 84, 91 caractères

:L1/L1_L2i`L1:fpart(L1,2)2_L1:SortA(L1)@cumSum(L1)=length(L1):Thend`-1#d`cumSum(L1):Endd`L1

• Assurez-vous qu'il n'y a pas 0d'entrée (ce n'est même pas, qui a dit que ça devait être bizarre?)
• Obtenir une entrée dans L1 (liste 1)
• Module de recherche de boucle de 2 pour chaque valeur
• Trier L1 du plus petit au plus élevé
• Afficher l'index (-1 ou la somme cumulée) et le plus petit nombre

Bourne shell (sh), 88 caractères

(echo 88;sed 's/./\n&/g')|nl -v-1|awk '{print $2,$1}'|sed '/^[^2468]/d'|sort -n|head -n1

Je pensais que je ferais une chose de traitement de chaîne pour le plaisir. Techniquement, il lit à partir de stdin, mais si vous l'exécutez de manière interactive, il demandera à l'utilisateur d'entrer car le clavier est le flux stdin par défaut. Utilise les commandes de base du shell pour diviser les entrées sur les lignes, les numéroter (à l'aide de l' nlutilitaire mal connu ), filtrer les lignes correspondant aux critères, les trier et produire le chiffre le plus bas. Imprime 88 -1si aucun chiffre pair n'a été trouvé.

C ++ - 223 221 Personnages:

#include<iostream>
#include<string>using namespace std;
int main(){int s=9;int p=-1;string x;cout<<"Enter characters: ";cin>>x;for(int i=0;i<x.length();i++){int n=x[i]-48;if(n%2==0&n<s){s=n;p=i;}}cout<<p<<", "<<s;return 0;}

Version lisible:

#include<iostream>
#include<string>
using namespace std;

int main() {
    int s = 9;
    int p= - 1;
    string x;

    cout << "Enter characters: ";
    cin >> x;

    for (int i = 0; i < x.length(); i++) {
        int n = x[i] - 48;

        if (n % 2 == 0 & n < s) {
            s = n;
            p = i;
        }
    }

    cout << p << ", " << s;

    return 0;
}

C'est long, mais pas aussi mauvais que Java.

Javascript 93 caractères

b=prompt();((r=b.match(/[2468]/g)||[-1]).sort(function(a,b){return a-b})[0])+","+b.indexOf(r)

Obtenez tous les numéros d'événements, triez le tableau et imprime le premier chiffre.

Mathematica, 157 caractères

f = Row@{If[(x = Min@#) == Infinity, -1, Position[#, x][[1, 1]]],
      ",", x} &[IntegerDigits@ToExpression@StringReplace[#,
       {"0" -> "1", x_?DigitQ :> x, _ -> "1"}] /. _?OddQ -> Infinity] &

inputs = {"25376", "523726", "583746", "53771", "_4___2"}

f /@ inputs // Column

1,2

2,2

5,4

-1, ∞

6,2

Julia, 84

julia> f(a)=(for i=2:2:8;(k=search(a,'0'+i))==0||return(k,i);end;(-1,0))
julia> f(readline(STDIN))
583746
(5,4)
julia> f(readline(STDIN))
_4___2
(6,2)

Julia a vraiment besoin d'un moyen plus court pour obtenir des informations sur le golf. J'ai compté la définition de fet un appel à f. Une indexation basée est la raison pour laquelle les réponses sont différentes des exemples.

JavaScript - 53 caractères

for(y=prompt(x=0);x<8&&(i=y.indexOf(x+=2))<0;);x+''+i

Lit l'entrée de l'invite et sort (vers la console) le plus petit caractère pair puis (sans délimiteur) le premier index de ce caractère; s'il n'y a pas de caractères pairs non nuls alors il sort 8-1.

C, 110 caractères

i,f,r,c,m=9;main(){while(r=getchar()>31){c=r-48;i++;if(c>=0&&~c&1&&c<m)m=c,f=i;}printf("%i,%i",m>8?-1:f-1,m);}

non golfé:

i,f,r,c,m=9;
main(){
  while(r=getchar()>31){
    c=r-48;
    i++;
    if(c>=0&&~c&1&&c<m) m=c,f=i;
  }
  printf("%i,%i",m>8?-1:f-1,m);
}

Javascript, 69

a=prompt(),b=[-1,9];for(i in a)if(+a[i]%2==0&&+a[i]<b[1])b=[+i,+a[i]]

Lit la valeur, parcourt chaque caractère, si la représentation numérique mod 2 est égale à 0 et que le nombre est inférieur à ce qui est déjà stocké dans b, remplacez les valeurs dansb

Rebol, 69

s: input for n 2 8 2[if f: find s n[print[index? f f/1]q]]print[-1 0]

Rubis 55

p gets.chars.sort*''=~/[2468]/?[$_.index($&),$&]:[-1,0]

JavaScript / jQuery 149

Golfé

$(function(){
var i=prompt(),k=-1,n=0,c,e="2468";
while(n<i.length){c=i.charAt(n);k=e.indexOf(c);if(k>=0){break;}n++;}$('#d').append(k+","+n);
});

Source complète

<!DOCTYPE html>
<html>
<head>
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
</head>
<body>
<div id="d"></div>
<script type="text/javascript">
$(function(){
var i=prompt();
var k=-1;
var n=0;
var c;
var e="2468";
while(n<i.length){
c=i.charAt(n);
k=e.indexOf(c);
if(k>=0){
break;
}
n++;
}
$('#d').append(k+","+n);
});
</script>
</body>
</html>