Stack Overflow의 또 다른 멋진 질문은 코드 골프 도전 으로 바뀌 었습니다 !

다음과 같은 프로그램을 작성하십시오.

1. 문자열 을 사용자 입력 ( 파이프 인 또는 명령 행 인수가 아님) 으로 승인합니다 . 입력의 데이터 유형은 문자열이어야합니다. 입력시 언어가 자동으로 사라지는 경우 문자열로 캐스트되어야합니다.
2. 제 최저라도의 (기초하여 0 또는 1) 인덱스 찾아 자리 .
3. 두 개의 정수 , 인덱스 및 가장 낮은 짝수를 인쇄 합니다.
4. 숫자 가 없으면 인덱스로 -1을 반환하면 두 번째 숫자는 무엇이든 될 수 있습니다.
5. 이 0 의 목적으로 도 짝수는 아닙니다 .

왼쪽의 문자열에 오른쪽의 값이 주어지면 테스트 예제가 표시됩니다.

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

승자 : 문자 수가 가장 적은 프로그램입니다. 보너스 나 페널티가 없습니다.

편집 : (표준 stdin) 사용자 입력 부분을 망쳤습니다. 기본적으로 파이핑 데이터가 없으며 명령 줄 인수가 없습니다. 프로그램 자체 내에서 일종의 사용자 프롬프트를 제공해야합니다.

골프 스크립트, 26 (28) 자

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

예:

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

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

라이브 테스트 : http://golfscript.apphb.com/?c=Oyc1Mzc3MScKLicyNDYnJjgrJDE8LjA9QD8%3D

설명:

• '#{gets}'I / O 요구 사항을 충족시키기 위해 루비로 탈출 한 것입니다. STDIN은 비어 있다고 가정
• . 입력을 복제
• '246'&8+8항상 유지되는 것을 제외하고 입력에 존재하는 짝수 자릿수를 찾습니다.
• $1< 목록을 정렬 한 다음 첫 번째 숫자를 가져 오지만 문자열로 유지
• .@\?스택에 {digit, input, digit}을 주문한 다음 입력에서 숫자를 찾습니다. 의 [배열, 배열] 서명에 대해 알려 주신 @peterTaylor에게 감사드립니다 ?.

나는 이번에 스펙 해석에 매우 대담했다. 즉:

• 스펙은 정수가 출력되는 순서를 요구하지 않습니다. 다른 @ peter의 제안 :x?x을 사용하여 수정하십시오 (임시 변수가 마음에 들지 않습니다.
• 스펙에는 두 정수 사이에 구분자가 필요하지 않습니다. 찾은 자릿수는 항상 한 자릿수이므로 중요하지 않습니다. 그렇다면 추가 n@(스왑도 수행), n\그렇지 않거나 ]`출력 형식을으로 지정하십시오 ["8" -1].

APL (37)

(기본적으로 1을 기반으로하지만 준수 ⎕IO)

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

설명:

• ⍞: 사용자 입력 읽기
• m←⍵/⍨⍵∊'2468':에없는 문자를 모두 제거하고 2468에 저장하십시오 m.
• ×⍴m: 어떤 것이 있는지 확인하십시오
• :: 그렇다면:
  • z←⌊/⍎¨m:에서 각 문자를 평가 m하고 가장 낮은 숫자를 찾아 저장하십시오 z.
  • z,⍨⍵⍳⍕z:의 인덱스 반환 z에 ⍵다음을 z.
• ⋄: 그렇지 않은 경우 :
  • ¯1,0: 반품 (-1, 0)

파이썬 3,69

여기 에서 아이디어를 결합 합니다 .

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

루비, 60 자

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

• $_에 의해 읽힌 마지막 입력을 포함합니다 gets.
• pinspect인수를 호출 하고 결과를 인쇄합니다.

펄 - - 94 - 53 개 문자 (48)

index()의 제로 기반 접근법 대신 pos에 하나를 사용 하고 시작합니다. CPAN이 없습니다. 이것을 실행하면 perl -nE입력을 기다릴 것입니다 STDIN.

첫 번째 match ( //) 연산은 $_입력에서 기본값 ( )에 대해 작동하며 주어진 짝수 sort와 일치하고 일치하는 값을 배열에 저장 한 다음 "scalar list"에 저장합니다 ($m). 스칼라 문맥에서 정렬 된 배열의 목록 값은 하나의 항목 길이이므로 숫자에서 가장 일치하는 짝수로 구성됩니다.

가장 낮은 짝수의 짝수 자릿수를 분리 한 다음 $m두 번째 일치 연산 을 사용 $m하여 원래 문자열에서 처음으로 나타나는 값을 찾습니다. 우리는 여전히 여기에서 기본값을 사용하고 $_있으며 $min 의 내용 $1( 두 번째 진술 의 ()주변 이유)에 대한 일치를 저장합니다 $m. 그 후, pos그리고 say나머지를 (더 적은 문자보다 index하고 print).

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

출력 순서 나 쉼표가 중요하지 않은 경우이 5자를 더 짧게 만들 수 있습니다.

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

내 초기 시도에서 나는 서두르고 오류를 일으켰다. 나는 단지 파이썬과 루비를 이길 원했다.

승자과 멋진 솔루션에 대한 다른 참가자들에게 축하 - 특히에 perl6:-) "사용할 수있는이 방법의 수 Perl6 적응 .comb(Masak으로는 Freenode에 제안 et.al. ).

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

Perl 6, 37 55 60 자

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

편집 : 나는 처음으로 질문을 오해했다. 이 업데이트는 정확해야합니다. 입력에 포함 된 가장 낮은 2, 4, 6 또는 8 수를 찾은 다음 해당 가장 낮은 수의 입력에 대해 정규식 일치를 수행합니다. $/.from일치하는 위치를 가져오고 ',', $/.Int쉼표에 일치 자체를 더한 값이거나 텍스트가 일치하지 않으면 0입니다.

당신이 여기있는 동안 의견과 irc에 대한 나의 입장을 고치는 데 도움을 준 G. Cito 를 올리십시오. :)

J, 44 자

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

짝수의 숫자가 없으면 입력의 마지막 문자를 출력합니다

예:

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

설명:

• echo ... i=.1!:1]1입력 / 출력입니다. 내가 원하는 것보다 길다. 입력도 막혀 있습니다 i.
• '2468'i.~ 입력에서 각 짝수의 첫 번째 발생을 찾아서 해당 숫자를 찾을 수없는 경우 입력 길이를 반환합니다.
• (#~(#i)&>)"입력 길이가 이보다 길면 선택"을 읽습니다. 다시 말해, 입력을 가리키는 인덱스를 선택하십시오. 내가 원하는 것보다 길다.
• _1,~뒷면에 -1을 추가합니다. 밑줄은 음수 값을 나타내는 J의 방법입니다.
• {. 첫 번째 요소를 선택
• (;{&i)두 개의 상자에서 해당 위치의 입력 문자와 연결합니다. 우리는 문자와 숫자를 연결하기 때문에 비 복싱 연결 ( ,)은 그렇지 않습니다. 박스가없는 표시를 원할 경우, ":먼저 두 문자의 비용으로 색인을 형식화해야합니다 ( ).

파이썬 2.7-76

나는 완전히 맞을 것으로 예상되는 참고 답변. 그러나 사람들을 시작하려면 :

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

예 (R에서 색인은 1에서 시작) :

_4_502
6  2

_3_501
-1 0 

583746
5  4

파워 쉘, 76 73 71

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

• $s=read-host 사용자 입력을 저장합니다 $s
• 2,4,6,8|%{...}{}숫자 2, 4, 6 및 8에 대해 내부 를 실행합니다.
• $i=$s.indexof("$_")+1$i숫자의 1 기반 인덱스로 설정 $s하거나 0숫자를 찾을 수없는 경우
• if( $i=... ){...} 그렇지 $i않은 경우 조건이 적용됩니다.0
• "$i,$_";break 인덱스와 숫자를 출력하고 실행을 중지
• "-1,0" 그렇지 않으면 출력 -1,0

C ++ 11, 173 (2 줄 바꿈 문자 포함)

압축 버전은 다음과 같습니다.

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

다음은 읽을 수있는 버전입니다.

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

이전 버전은 다음과 같습니다.

C ++ 11, 175 (2 줄 바꿈 문자 포함)

압축 버전은 다음과 같습니다.

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

다음은 읽을 수있는 버전입니다.

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

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

C #-124

나는 파티에 조금 늦었다

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

하스켈, 79 자

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

출력 형식으로 약간 느리고 느슨하게 실행됩니다.

& 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

원본의 변경
에 따라 제거 된 오류 quelch 코멘트 아스 커에서.

암호:

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

연습 :

"... "따옴표 안의 모든 것이 출력에 포함됩니다.

$(... )괄호 사이의 모든 것은 명령으로 취급되며 명령 자체 대신 해당 코드의 출력이 포함됩니다.

[array]::IndexOf(... )이것은 배열을 가진 요소의 인덱스를 얻는 데 사용됩니다. 첫 번째 매개 변수는 검색 할 배열 객체입니다. 두 번째 매개 변수는 찾을 오브젝트입니다. 첫 번째 일치하는 요소의 색인 만 출력합니다. 나는 사용하여 단순히 노력 IndexOf직접에 대한 방법을 $s예 (: $s.IndexOf($x), 그러나 이것은 내가 알아낼 아직했습니다 어떤 이유로 실패 -이 방법은 해당 개체에 존재하지 않습니다 주장하고있다.

(... )괄호 안의 표현식은의 첫 번째 매개 변수가됩니다 IndexOf.

$s= $ s는 사용자 입력을 저장하는 변수입니다.

(read-host)-split'' 사용자 입력을 가져 와서 문자 배열로 나눕니다 .`

|?{$_}에 의해 생성 된 여분의 빈 배열 요소를 필터링합니다 -split''.

,(... )괄호 안의 표현식은의 두 번째 매개 변수입니다 IndexOf.

$x= $ s는 사용자 입력에서 가장 낮은 짝수를 저장하는 변수입니다.

$s|?{$_%2-eq0} $ s에서 짝수를 빼냅니다.

|?{$_-gt0} 0을 무효화합니다.

|sort 나머지 개체를 정렬하며 기본 순서는 오름차순입니다.

|select -f 1 첫 번째 객체를 선택합니다. 이제 가장 낮은 짝수 자리가됩니다.

,$x위의 코드는 가장 낮은 짝수의 인덱스를 출력합니다. 쉼표를 추가 한 다음 숫자 자체를 출력합니다.

노트:

이것은 아마도 규칙 # 4를 약간 확장하고있을 것입니다. 짝수 자리가 없으면 출력에 두 번째 숫자가 포함되지 않습니다.

또한 입력에 숫자가 아닌 요소가 포함되어 있으면 종료되지 않는 오류가 발생합니다. 스크립트는 계속 실행되고 적절한 출력을 제공하지만 실행 $ErrorActionPreference하기 'SilentlyContinue'전에 설정 을 원할 수 있습니다 .

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

VB의 동적 설정을 악용하는 냄새가 약간 있습니다. Option Explicit Off 및 Import System.Console .

LINQ를 사용하는 VB.net (193c)

이것은 주로 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

골프 기본 84, 91 자

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

• 0입력 값 이 없는지 확인하십시오 (홀수 여야한다고 누가 말하지 않습니까?)
• L1에 입력 받기 (목록 1)
• 각 값에 대해 2의 루프 찾기 계수
• L1을 가장 작은 것부터 높은 것까지 정렬
• 인덱스 (-1 또는 누적 합계)와 가장 작은 숫자를 표시합니다

본 쉘 (sh), 88 자

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

나는 문자열 처리를 재미있게 할 것이라고 생각했다. 기술적으로 stdin에서 읽지 만 대화식으로 실행하면 키보드가 기본 stdin 스트림이므로 사용자에게 입력하라는 메시지가 표시됩니다. 기본 쉘 명령을 사용하여 입력을 행으로 분할하고 번호를 지정하고 (잘 알려지지 않은 nl유틸리티 사용) 기준에 맞는 행을 필터링하고 정렬하고 가장 낮은 자릿수를 출력합니다. 88 -1짝수 자리가 없으면 인쇄 합니다.

C ++-223 221 캐릭터 :

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

읽을 수있는 버전 :

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

길지만 Java만큼 나쁘지는 않습니다.

자바 스크립트 93 자

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

모든 이벤트 번호를 가져오고 배열을 정렬하고 첫 번째 숫자를 인쇄합니다.

Mathematica, 157 자

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

줄리아, 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는 실제로 골프를위한 입력을 얻는 더 짧은 방법이 필요합니다. 의 정의 f와 한 번의 호출을 세었습니다 f. 하나의 기반 인덱싱은 답변이 예제와 다른 이유입니다.

자바 스크립트-53 자

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

프롬프트에서 입력을 읽고 콘솔에서 가장 낮은 짝수 문자 (구분 기호없이)를 해당 문자의 첫 번째 색인으로 출력합니다. 0이 아닌 짝수 문자가 없으면를 출력 8-1합니다.

C, 110 자

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

언 골프 :

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

자바 스크립트, 69

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

숫자 표현 mod 2가 0이고 숫자가 이미 저장된 것보다 작은 경우 값을 읽고 각 문자를 반복 b합니다.b

레볼, 69

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

루비 55

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

자바 스크립트 / jQuery 149

골프

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

전체 소스

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