Eine weitere brillante Frage von Stack Overflow wurde zu einer Code-Golf- Herausforderung!

Schreiben Sie ein Programm, das:

1. Nimmt eine Zeichenfolge als eine Benutzereingabe (nicht verrohrt in oder Befehlszeilenargument). Der Datentyp der Eingabe muss eine Zeichenfolge sein. Wenn die Sprache bei der Eingabe automatisch ausgewertet wird, muss sie in eine Zeichenfolge umgewandelt werden.
2. Findet den Index (basierend auf 0 oder 1) der ersten niedrigsten geraden Ziffer .
3. Gibt 2 Ganzzahlen , den Index und die niedrigste gerade Ziffer aus .
4. Wenn es keine gerade Ziffer gibt , geben Sie -1 als Index zurück. Die zweite Zahl kann eine beliebige Zahl sein.
5. Im Sinne dieser Null ist das nicht gerade .

Testbeispiele mit der Zeichenfolge links geben die Werte rechts aus:

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

Der Gewinner: ist das Programm mit der niedrigsten Zeichenanzahl. Keine Boni, keine Strafen.

edit: (about stdin) Ich habe den Benutzereingabeteil vermasselt, im Grunde keine Piping-Daten und keine Befehlszeilenargumente. Sie müssen eine Benutzereingabeaufforderung innerhalb des Programms selbst bereitstellen.

Golfscript, 26 (28) Zeichen

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

Beispiel:

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

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

Live-Test: http://golfscript.apphb.com/?c=Oyc1Mzc3MScKLicyNDYnJjgrJDE8LjA9QD8%3D

Erläuterung:

• '#{gets}'ist eine Flucht nach Ruby, um die E / A-Anforderungen zu erfüllen; STDIN wird als leer angenommen
• . Klont die Eingabe
• '246'&8+findet, welche geraden Ziffern in der Eingabe vorhanden sind, außer 8wird immer beibehalten
• $1< sortiert die Liste, nimmt dann die erste Ziffer, behält sie aber als Zeichenfolge bei
• .@\?ordnet den Stapel {Ziffer, Eingabe, Ziffer} an und findet dann die Ziffer in der Eingabe; danke @peterTaylor, dass du mich auf die Signatur von [array, array] aufmerksam gemacht hast ?.

Ich war dieses Mal sehr kühn mit der Interpretation der Spezifikationen. nämlich:

• Die Spezifikation schreibt nicht vor, in welcher Reihenfolge die ganzen Zahlen ausgegeben werden. Verwenden Sie den Vorschlag des anderen @ Peter, um das Problem :x?xzu beheben (ich mag keine temporären Variablen.
• Für die Angabe ist kein Trennzeichen zwischen den beiden Ganzzahlen erforderlich. Da es sich bei der gefundenen Ziffer immer um eine einzelne Ziffer handelt, spielt dies keine große Rolle. Wenn dies der Fall ist, hängen Sie an n@(das führt auch den Swap durch), n\(das nicht) oder ]`(das formatiert die Ausgabe als ["8" -1]).

APL (37)

(1-basiert standardmäßig, aber gehorcht ⎕IO)

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

Erläuterung:

• ⍞: Benutzereingabe lesen
• m←⍵/⍨⍵∊'2468': Entfernen Sie alle Zeichen, die nicht 2468in gespeichert sind m.
• ×⍴m: sehen, ob es welche gibt
• :: Wenn ja:
  • z←⌊/⍎¨m: werte jedes Zeichen in aus m, finde die niedrigste Zahl und speichere in z.
  • z,⍨⍵⍳⍕z: Liefert den Index von zin ⍵, gefolgt von z.
• ⋄: Wenn nicht:
  • ¯1,0: Rückkehr (-1, 0)

Python 3, 69

Ideen von hier kombinieren .

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

Ruby, 60 Zeichen

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

• $_enthält die zuletzt gelesene Eingabe von gets.
• pruft inspectdie Argumente auf und druckt die Ergebnisse aus.

Perl - - 94 - 53 Zeichen (oder 48)

Anstelle des index()nullbasierten Ansatzes verwenden wir posund beginnen bei eins. kein CPAN. Führen Sie dies mit aus perl -nEund es wartet auf Eingaben (von denen es auch empfangen kann STDIN).

Die erste match ( //) - Operation bearbeitet den Standardwert ( $_) aus der Eingabe, vergleicht ihn mit den angegebenen geraden Zahlen, sortfügt die Übereinstimmungen in ein Array ein und speichert sie in einer "skalaren Liste" ($m). Im skalaren Kontext ist der Listenwert des sortierten Arrays ein Element lang und besteht somit aus der niedrigsten übereinstimmenden geraden Ziffer in der Zahl.

Nachdem wir die niedrigste gerade übereinstimmende Ziffer isoliert haben, verwenden wir $mfür eine zweite Übereinstimmungsoperation, die das erste Vorkommen des Werts von $min der ursprünglichen Zeichenfolge findet. Wir verwenden hier immer noch den Standardwert $_und speichern die Übereinstimmung gegen den Inhalt von $min $1(den Grund für das ()Herum $min der zweiten Anweisung). Danach posund sayerledigen Sie den Rest (und in weniger Zeichen als indexund print).

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

Wenn die Ausgabereihenfolge oder Kommas keine Rolle spielen, können Sie diese 5 Zeichen kürzer machen:

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

Bei meinem früheren Versuch habe ich mich beeilt und einen Fehler gemacht - ich wollte nur Python und Ruby besiegen (aber es ist fehlgeschlagen) ... seufz.

Herzlichen Glückwunsch an den Gewinner und die anderen Teilnehmer zu ihren coolen Lösungen - insbesondere an perl6:-) Eine mögliche Perl6-Anpassung dieses Ansatzes könnte " .comb(vorgeschlagen auf freenode von Masak et al. ).

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

Perl 6, 37 55 60 Zeichen

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

EDIT: Ich habe die Frage das erste Mal falsch verstanden. Dieses Update sollte korrekt sein. Es findet die niedrigste Zahl von 2,4,6 oder 8, die die Eingabe enthält, und führt dann eine Regex-Übereinstimmung mit der Eingabe mit der niedrigsten Zahl durch. $/.fromRuft die Position der Übereinstimmung ab und ',', $/.Intist ein Komma plus die Übereinstimmung selbst oder 0, wenn der Text nicht übereinstimmt.

Während du hier bist, stimme G. Cito zu , der mir geholfen hat, meinen Eintrag in den Kommentaren und auf irc zu korrigieren :)

J, 44 Zeichen

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

Gibt das letzte Zeichen der Eingabe aus, wenn keine gerade Ziffer gefunden wird

Beispiel:

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

Erläuterung:

• echo ... i=.1!:1]1ist Eingabe / Ausgabe. Viel länger als ich will. Die Eingabe wird in gespeicherti .
• '2468'i.~ Findet das erste Vorkommen jeder geraden Ziffer in der Eingabe und gibt die Länge der Eingabe zurück, wenn die Ziffer nicht gefunden werden kann
• (#~(#i)&>)lautet "Auswahl, wenn die Länge der Eingabe größer ist"; Wählen Sie mit anderen Worten die Indizes aus, die in die Eingabe zeigen. Viel länger als ich will.
• _1,~Fügt -1 nach hinten hinzu. Der Unterstrich ist die Art und Weise, wie J negative Werte darstellt.
• {. Wählt das erste Element aus
• (;{&i)verkettet es mit dem eingegebenen Zeichen an dieser Position in zwei Feldern; Da wir eine Zahl mit einem Zeichen verketten, ist eine Verkettung ohne Boxing ( ,) nicht möglich. Wenn eine Anzeige ohne Box gewünscht wird, muss der Index ":zuerst mit zwei Zeichen formatiert werden ( ).

Python 2.7 - 76

Eine Referenzantwort, von der ich voll und ganz erwarte, dass sie geschlagen wird. Aber um die Leute anzufangen:

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

Beispiele (in R beginnt der Index bei 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 speichert Benutzereingaben in $s
• 2,4,6,8|%{...} Läuft, was in den {}Ziffern 2, 4, 6 und 8 enthalten ist
• $i=$s.indexof("$_")+1 Setzt $iauf 1-basierten Index einer Ziffer in $soder 0wenn die Ziffer nicht gefunden wird
• if( $i=... ){...} Die Bedingung ist erfüllt, wenn dies $inicht der Fall ist0
• "$i,$_";break gibt den Index und die Ziffer aus und stoppt die Ausführung
• "-1,0" sonst Ausgänge -1,0

C ++ 11, 173 (einschließlich zweier Zeilenumbrüche)

Hier ist die komprimierte Version:

#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";}

Hier ist die lesbare Version:

#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";
}

Hier ist eine ältere Version:

C ++ 11, 175 (einschließlich zweier Zeilenumbrüche)

Hier ist die komprimierte Version:

#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";}

Hier ist die lesbare Version:

#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 Zeichen

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

C # - 124

Ich bin ein bisschen zu spät zur Party

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 Zeichen

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

Dies läuft mit der Ausgabeformatierung etwas schnell und locker ab:

& 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

Änderungen vom Original
Fehlerquelch per Kommentar vom Fragesteller entfernt.

Code:

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

Exemplarische Vorgehensweise:

"..." Alles in den Anführungszeichen wird in die Ausgabe einbezogen.

$(...) Alles zwischen den Klammern wird als Befehl behandelt, und die Ausgabe dieses Codes wird anstelle der Befehle selbst eingeschlossen.

[array]::IndexOf(... )Dies wird verwendet, um den Index eines Elements mit dem Array abzurufen. Der erste Parameter ist das zu durchsuchende Array-Objekt. Der zweite Parameter ist das zu findende Objekt. Dies gibt nur den Index des ersten übereinstimmenden Elements aus. Ich habe einfach versucht, eine IndexOfMethode direkt gegen $s(zB:$s.IndexOf($x) , aber dies schlägt aus irgendeinem Grund fehl, den ich noch nicht herausgefunden habe - es wird behauptet, dass die Methode für dieses Objekt nicht existiert.

(... )Ausdruck in der Klammer ist der erste Parameter für IndexOf.

$s= $ s ist eine Variable zum Speichern der Benutzereingaben.

(read-host)-split'' Ruft Benutzereingaben ab und teilt sie in ein Array von Zeichen auf.`

|?{$_}Filtert zusätzliche leere Array-Elemente heraus, die von generiert werden -split''.

,(... )Ausdruck in der Klammer ist der zweite Parameter für IndexOf.

$x= $ s ist eine Variable zum Speichern der niedrigsten geraden Ziffer aus der Benutzereingabe.

$s|?{$_%2-eq0} Zieht die geraden Zahlen aus $ s heraus.

|?{$_-gt0} Ungültig macht null.

|sort Sortiert die restlichen Objekte in aufsteigender Reihenfolge.

|select -f 1 Wählt das erste Objekt aus, bei dem es sich inzwischen um die niedrigste gerade Ziffer handelt.

,$xDer obige Code gibt den Index der niedrigsten geraden Ziffer aus. Dies fügt ein Komma hinzu und gibt dann die Ziffer selbst aus.

Anmerkungen:

Dies ist vielleicht ein bisschen Stretching Regel # 4. Wenn es keine gerade Zahl gibt, enthält die Ausgabe keine zweite Zahl.

Dies wird auch einige nicht-terminierende Fehler auslösen, wenn die Eingabe nicht-numerische Elemente enthält. Das Skript wird weiterhin ausgeführt und gibt eine ordnungsgemäße Ausgabe aus. Möglicherweise möchten Sie dies $ErrorActionPreferencejedoch 'SilentlyContinue'vor dem Ausführen festlegen .

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

Riecht leicht, da es die dynamische Einstellung von VB ausnutzt. Option Explicit Off und Importiert System.Console .

VB.net (193c) mit LINQ

Dieser verwendet hauptsächlich eine LINQ-Abfrage.

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 Zeichen

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

• Stellen Sie sicher, dass es keine gibt 0 der Eingang (nicht einmal, wer hat gesagt, dass er ungerade sein muss?)
• Eingabe in L1 abrufen (Liste 1)
• Schleifensuchmodul von 2 für jeden Wert
• Sortieren Sie L1 vom kleinsten zum höchsten
• Zeigen Sie den Index (entweder -1 oder die kumulative Summe) und die kleinste Zahl an

Borowski-Schale (sh), 88 Zeichen

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

Ich dachte, ich würde zum Spaß eine Saitenverarbeitungssache machen. Technisch liest es von stdin, aber wenn Sie es interaktiv ausführen, fordert es den Benutzer zur Eingabe auf, da die Tastatur der Standard-stdin-Stream ist. Verwendet grundlegende Shell-Befehle, um die Eingabe in Zeilen aufzuteilen, zu nummerieren (mit dem nicht bekannten nlDienstprogramm), die den Kriterien entsprechenden Zeilen herauszufiltern, zu sortieren und die niedrigste Ziffer auszugeben. 88 -1Wird gedruckt, wenn keine gerade Ziffer gefunden wurde.

C ++ - 223 221 Zeichen:

#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;}

Lesbare Version:

#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;
}

Es ist lang, aber nicht so schlimm wie Java.

Javascript 93 Zeichen

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

Holen Sie sich alle Ereignisnummern, sortieren Sie das Array und drucken Sie die erste Ziffer.

Mathematica, 157 Zeichen

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 braucht wirklich einen kürzeren Weg, um Input zum Golfen zu bekommen. Ich zählte die Definition von fund einen Anruf an f. Eine Indizierung basiert darauf, warum sich die Antworten von den Beispielen unterscheiden.

JavaScript - 53 Zeichen

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

Liest die Eingabe von der Eingabeaufforderung und gibt (an die Konsole) das niedrigste gerade Zeichen und (ohne Begrenzer) den ersten Index dieses Zeichens aus. Wenn es keine geraden Zeichen ungleich Null gibt, wird ausgegeben 8-1.

C, 110 Zeichen

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

ungolfed:

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

Liest den Wert und durchläuft jedes Zeichen. Wenn die Zahlendarstellung mod 2 gleich 0 ist und die Zahl kleiner als die bereits gespeicherte Zahl ist b, ersetzen Sie die Werte inb

Rebol, 69

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

Rubin 55

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

JavaScript / jQuery 149

Golf gespielt

$(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);
});

Volle Quelle

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