Еще один блестящий вопрос от Stack Overflow превратился в вызов кода-гольфа !

Напишите программу, которая:

1. Принимает строку в качестве пользовательского ввода (не передается по каналу или аргумент командной строки). Тип данных ввода должен быть строкой, если язык автоматически выявляется при вводе, он должен быть приведен к строке.
2. Находит индекс (на основе 0 или 1) первой младшей четной цифры .
3. Печатает 2 целых числа , индекс и младшую четную цифру .
4. Если четной цифры нет , верните -1 в качестве индекса, второе число может быть любым.
5. Для целей этого ноль не является четным .

Тестовые примеры, учитывая строку слева, выводят значения справа:

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

Победитель: это программа с наименьшим количеством символов. Нет бонусов, нет штрафов.

edit: (о stdin) Я облажался с пользовательской вводной частью, в основном нет данных о трубопроводе и аргументов командной строки. Вы должны предоставить пользователю какую-либо подсказку в самой программе.

Golfscript, 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}'является побегом к ruby ​​для удовлетворения требований ввода / вывода; STDIN предполагается пустым
• . клонирует вход
• '246'&8+находит, какие четные цифры присутствуют во входных данных, за исключением того, 8что всегда сохраняется
• $1< сортирует список, затем берет первую цифру, но сохраняет ее как строку
• .@\?упорядочивает стек {цифра, ввод, цифра}, затем находит цифру на входе; спасибо @peterTaylor за то, что заметил меня подпись [array, array] ?.

На этот раз я был очень смел с интерпретацией спецификаций; а именно:

• Спецификация не требует, в каком порядке выводятся целые числа; Используйте предложение другого @ 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)

Python 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.
• pвызывает inspectаргументы и печатает результаты.

Perl - - 94 - 53 символов (или 48)

Вместо index()подхода, основанного на нуле, мы используем posи начинаем с одного; нет CPAN. Запустите его, perl -nEи он будет ждать ввода (который он также может получить STDIN).

Первая //операция match ( ) работает со значением по умолчанию ( $_) из входных данных, сравнивая с заданными четными числами, sortпомещая совпадения в массив, а затем сохраняя их в «скалярном списке» ($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"

В моей предыдущей попытке я бросился и сделал ошибку - я просто хотел победить python и ruby ​​(но не смог) ... вздох.

Поздравляю победителя и других участников за их крутые решения - особенно perl6:-) Возможная адаптация этого подхода в Perl6 может быть использована " .comb(предложено на freenode Масаком и др. ).

$_=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 :)

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)объединяет его с символом ввода в этой позиции в двух полях; так как мы объединяем число с символом, небоксирующая конкатенация ( ,) не подходит. Если требуется отображение без коробки, индекс необходимо ":сначала отформатировать ( ) по цене двух символов.

Python 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

Powershell, 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 (включая два символа новой строки)

Вот сжатая версия:

#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 (включая два символа новой строки)

Вот сжатая версия:

#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

Изменения от оригинала.
Удалено сообщение об ошибке для комментария от автора.

Код:

"$([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} Обнуляет ноль.

|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. Опция Явное отключение и импорт System.Console .

VB.net (193c) с использованием LINQ

Этот в первую очередь использует запрос 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 символов

: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, либо накопленную сумму) и наименьшее число

Bourne shell (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если четная цифра не найдена.

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

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

Джулии действительно нужен более короткий способ получить информацию для игры в гольф. Я посчитал определение fи один звонок f. Индексирование, основанное на одном, объясняет, почему ответы отличаются от примеров.

JavaScript - 53 символа

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

Считывает ввод из приглашения и выводит (в консоль) младший четный символ, а затем (без разделителя) первый индекс этого символа; если нет ненулевых четных символов, то выводится 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);}

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

Считывает значение, перебирает каждый символ, если числовое представление 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]

Ruby 55

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

JavaScript / JQuery 149

Golfed

$(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>