Напишите программу или функцию, которая принимает строку символов, -=o.где символы -=o's .' и 's' всегда чередуются, символ за символом. Строка будет иметь нечетную длину больше единицы и всегда начинаться и заканчиваться одним из -=o.

По сути, ввод будет выглядеть как линия смайликов, которые разделяют глаза в различных состояниях сонливости, например

o.=.=.-.-.o.o

Ваша цель - напечатать или вернуть лицо, которое является либо самым сонным, либо самым бодрствующим (вы сами выбираете). Если есть несколько вариантов для тех, кто спит / наиболее бодрствует, то может быть выведен любой из них.

Есть девять отдельных лиц и пять уровней сонливости:

-.- is 100% sleepy
-.= is 75% sleepy
-.o is 50% sleepy
=.- is 75% sleepy
=.= is 50% sleepy
=.o is 25% sleepy
o.- is 50% sleepy
o.= is 25% sleepy
o.o is 0% sleepy

В случае , если это не ясно, процент сонливости вычисляется путем присвоения 1в -течение полностью спит, 0.5чтобы =за полусне, и 0в oтечение бодрствования. Тогда сумма двух значений глаз, деленная на два, представляет собой процент.

Самый короткий код в байтах побеждает.

Тестовые случаи

Sleepiest

-.- GIVES -.-
=.- GIVES =.-
o.o GIVES o.o
o.-.= GIVES -.=
=.-.= GIVES =.- OR -.=
o.-.= GIVES -.=
-.-.= GIVES -.-
o.o.- GIVES o.-
=.=.=.o GIVES =.=
-.=.=.= GIVES -.=
=.o.-.= GIVES -.=
o.-.o.=.= GIVES o.- OR -.o OR =.=
-.o.-.=.= GIVES -.=
o.o.o.o.o GIVES o.o
-.-.-.-.- GIVES -.-
o.=.=.-.-.o.o GIVES -.-
-.=.-.o.o.=.o.-.o.=.-.o.=.o.- GIVES -.= OR =.-

Most Awake

-.- GIVES -.-
=.- GIVES =.-
o.o GIVES o.o
o.-.= GIVES o.-
=.-.= GIVES =.- OR -.=
o.-.= GIVES o.-
-.-.= GIVES -.=
o.o.- GIVES o.o
=.=.=.o GIVES =.o
-.=.=.= GIVES =.=
=.o.-.= GIVES =.o
o.-.o.=.= GIVES o.=
-.o.-.=.= GIVES -.o OR o.- OR =.=
o.o.o.o.o GIVES o.o
-.-.-.-.- GIVES -.-
o.=.=.-.-.o.o GIVES o.o
-.=.-.o.o.=.o.-.o.=.-.o.=.o.- GIVES o.o

Pyth, 12 10 байт

hoSN%2.:z3

Это печатает самый сонный смайлик. Проверьте все контрольные примеры сразу в компиляторе Pyth .

Кредит идет к @ Sp3000 за идею использовать сортировку .

Как это работает

hoSN%2.:z3
              (implicit) Save the in z.
      .:z3    Compute all substrings of length 3.
    %2        Keep every seconds substring. This discards non-emoticons.
 o            Sort the emoticons by the following key:
  SN            Sort the characters of the emoticon.
                This works since '-' < '=' < 'o'.
h             Retrieve the first, minimal element.

Python 2, 54 53 байта

f=lambda s:s and max((s+' ')[:3],f(s[2:]),key=sorted)

Это функция, которая возвращает лицо, которое наиболее проснулся.

Большое спасибо xnor за то, что он предоставил много тактических приемов, чтобы сократить мой оригинальный алгоритм.

CJam, 12 байтов

q3ew2%{$}$0=

Это печатает самый сонный смайлик. Попробуйте эту скрипку или этот набор тестов в интерпретаторе CJam.

Кредит идет к @ Sp3000 за идею использовать сортировку .

Как это работает

q            e# Read all input from STDIN.
 3ew         e# Push all overlapping slices of length 3.
    2%       e# Keep every seconds slice. This discards non-emoticons.
      {$}$   e# Sort the slices by their sorted characters.
             e# This works since '-' < '=' < 'o'.
          0= e# Retrieve the first, minimal slice.

Дьялог АПЛ, 35 28 байт

{⊃{⍵[⍒{+/'.??o='⍳⍵}¨⍵]}3,/⍵}

Это монадическая функция, которая берет строку справа и выводит самое сонное лицо.

    {⊃{⍵[⍒{+/'.??o='⍳⍵}¨⍵]}3,/⍵}'o.=.=.-.-.o.o'
-.-

Пролог, 205 189 байт

Код

r([X|T],[N|B],M):-N=M,write(X);r(T,B,M).
p(X):-findall(S,sub_atom(X,_,3,_,S),L),findall(E,(nth1(I,L,E),I mod 2=\=0),R),maplist(atom_codes,R,Q),maplist(sum_list,Q,S),min_list(S,M),r(R,S,M).

объяснение

r([X|T],[N|B],M):-N=M,write(X);r(T,B,M).
p(X):-findall(S,sub_atom(X,_,3,_,S),L),              % L = all sublists of length 3
      findall(E,(nth1(I,L,E),I mod 2=\=0),R),        % R = every other element of L
      maplist(atom_codes,R,Q),                       % Q = list of decimal ascii codes 
                                                           created from R

      maplist(sum_list,Q,S),                         % S = list of sums of R's lists
      min_list(S,M),                                 % M = minimum sum
      r(R,S,M).                                      % Prints first element in R with sum M

пример

>p('-.=.-.o.o.=.o.-.o.=.-.o.=.o.-').
-.=

Изменить: 16 байтов сохранены путем объединения r-предложений с ИЛИ.

Clojure, 82 байта

(fn[x](println(apply str(apply min-key #(reduce +(map int %))(partition 3 2 x)))))

Бонус: следующая меньшая функция печатает то же лицо, но с большим стилем!

(fn[x](println(apply min-key #(reduce +(map int %))(partition 3 2 x))))

Проверьте здесь.

Рубин, 59 байт

Функция возвращает самое сонное лицо, используя трюк сортировки.

f=->(s){s.split(?.).each_cons(2).min_by{|e|e.sort}.join(?.)}

Вызывается так:

f.call("o.=.=.-.-.o.o")
# => "-.-"

Работает на неловкий порядок глаз из-за внутреннего вида глаз:

f.call("=.-.o")
# => "=.-"

Минколанг 0,12 , 119 байт

Сначала я попытался сделать это коротким и действительно гольфом. Я сдался и пошел на что-то более «веселое», но все же относительно гольф.

>2@fv$oI2:[9[i$z3[iciz1+q=]++3=tt"^"3zpt]$x$x]IX3140w
o.o1F
o.=1$
=.o1+
=.=12
o.-1:
-.o11
=.-1+
-.=13
-.-1[
/c0i<
\qO].

Попробуй это здесь!

объяснение

Но на самом деле, нажмите на ссылку выше и нажмите Slow! Так или иначе...

>2@fv

Это пропускает fv, что будет важно позже.

$o                                                  Read in whole input as characters 
  I2:                                               Half the stack length
     [                                              Open for loop (for each face)
      9[                                            Open another for loop - 9 repeats
        i$z                                         Stores loop counter in register
           3[                                       Open another for loop - 3 repeats
             ic                                     Copy char 1/2/3
               iz1+q                                Retrieve char from lookup table
                    =                               1 if equal, 0 otherwise
                     ]                              Close for loop
                      ++                            Add twice
                        3=                          1 if equal to 3, 0 otherwise
                          tt      t                 Ternary - executes first part when 0,
                                                    second part otherwise
                            "^"3zp                  Put a ^ next to the face that matched
                                   ]                Close lookup for loop
                                    $x$x            Dump first two characters
                                        ]           Close for loop
                                         IX         Dump the whole stack
                                           31       Push a 3, then a 1
                                             40w    Wormhole to (4,0) in the code

Все, что он сделал, это поставил ^рядом с лицами, которые соответствовали. Так что теперь кодовое поле может выглядеть так:

>2@fv$oI2:[9[i$z3[iciz1+q=]++3=tt"^"3zpt]$x$x]IX3140w
o.o1F
o.=1$
=.o1+
=.=^2   <-- caret
o.-^:   <-- caret
-.o11
=.-1+
-.=^3   <-- caret
-.-1[
/c0i<
\qO].

Без комментариев, конечно. Теперь 40wчервоточина отправила указатель инструкции v, который немедленно перенаправляет ее на F. Теперь Fэто команда "gosub". Это как гото, но вы можете вернуться туда, где вы его назвали. В то время, когда Fвстречается, стек есть [3,1], поэтому он переходит к 1(возможно) во второй строке. Когда счетчик программ движется вниз, он продолжает работу, вставляя 1s в стек по пути. То есть ... до тех пор, пока он не коснется a ^, в этот момент он перенаправляется обратно вверх, где он 1снова толкает каждого . Указатель инструкций затем нажимает f, что восстанавливает его положение и направление (когда Fвстречалось ранее). Для удобства я возьму следующий код и поменяю его раскладку. (The</\ служат для перенаправления указателя инструкций по мере необходимости.)

$+                 Sum up the whole stack
  2:               Divide by 2 (because each 1 was pushed twice)
    1+             Add 1 (shift down one row)
      3[           Open for loop - 3 repeats
        i          Push loop counter
         0c        Copy top of stack
           q       Retrieve face character
            O      Output as character
             ].    Close for loop and stop when it's done.

Я на самом деле горжусь тем, как я использовал несколько уникальных для Минколанга функций, которыми раньше не пользовался. В основном троичный и госуб. Во всяком случае, у вас есть это!

C 70 байт

char*f(char*s){char*p=s[3]?f(s+2):s;return*s+s[2]>*p+p[2]?s[3]=0,s:p;}

Функция возвращает самое проснувшееся лицо. Он изменяет входную строку на месте, чтобы вернуть строку с нулевым символом в конце.

Python 2/3, 54 56 байт

lambda x:".".join(max(zip(x[::2],x[2::2]),key=sorted))

Просто хотел взять альтернативный вариант рекурсивного ответа xsot.

Это берет лучший (или худший?) Кортеж соседних пар глаз и соединяет их вместе.

Замените max на min, чтобы вернуть наиболее сонного (так как это возвращает наиболее бодрствующий)

Кажется, работает, используя следующий тест:

for line in """-.- GIVES -.-
    =.- GIVES =.-
    o.o GIVES o.o
    o.-.= GIVES o.-
    =.-.= GIVES =.- OR -.=
    o.-.= GIVES o.-
    -.-.= GIVES -.=
    o.o.- GIVES o.o
    =.=.=.o GIVES =.o
    -.=.=.= GIVES =.=
    =.o.-.= GIVES =.o
    o.-.o.=.= GIVES o.=
    -.o.-.=.= GIVES -.o OR o.- OR =.=
    o.o.o.o.o GIVES o.o
    -.-.-.-.- GIVES -.-
    o.=.=.-.-.o.o GIVES o.o
    -.=.-.o.o.=.o.-.o.=.-.o.=.o.- GIVES o.o""".splitlines():
    inp, _, opts = line.partition(" GIVES ")
    optst = opts.split(" OR ")
    act = f(inp)
    print(inp, "expected", opts, "got", act, "equal?", act in optst)

Что дает следующий результат:

-.- expected -.- got -.- equal? True
=.- expected =.- got =.- equal? True
o.o expected o.o got o.o equal? True
o.-.= expected o.- got o.- equal? True
=.-.= expected =.- OR -.= got =.- equal? True
o.-.= expected o.- got o.- equal? True
-.-.= expected -.= got -.= equal? True
o.o.- expected o.o got o.o equal? True
=.=.=.o expected =.o got =.o equal? True
-.=.=.= expected =.= got =.= equal? True
=.o.-.= expected =.o got =.o equal? True
o.-.o.=.= expected o.= got o.= equal? True
-.o.-.=.= expected -.o OR o.- OR =.= got =.= equal? True
o.o.o.o.o expected o.o got o.o equal? True
-.-.-.-.- expected -.- got -.- equal? True
o.=.=.-.-.o.o expected o.o got o.o equal? True
-.=.-.o.o.=.o.-.o.=.-.o.=.o.- expected o.o got o.o equal? True

Брахилог , 10 байт

s₃ᶠġ₂hᵐoᵒh

Попробуйте онлайн!

Перевод Дениса Пита с ответа.

Mathematica, 61 байт

"."
Sort[Partition[#~StringSplit~%,2,1]][[1]]~StringRiffle~%&

Идет к самому сонному.

F # 60

fun s->Seq.max[for n in 0..2..String.length s-2->s.[n..n+2]]

Возвращает наиболее просыпается лицо (изменение maxот minза спящий)

Perl 5, 127 байт

%h=qw[- 2 = 1];sub r{$b=0;$b+=$h{$_}for split'',pop;$b}($_)=<>;@a='o.o';while(/.../g){push@a,$& if(r$&)>r$a[-1];--pos}say$a[-1]

(Я уверен, что это можно сделать более кратко.) Как это работает:

1. Возьмите каждую трехсимвольную строку из строки, с перекрытием на одно (это то, что --posделает).
2. Добавьте эту трехсимвольную строку в массив, если ее значение превышает значение последнего элемента массива; здесь «значение» - это просто сумма значений его символов в сонливости.
3. Распечатать последний элемент массива.

ES6, 81 72 байта

a=>"-.-,-.=,=.-,-.o,=.=,o.-,=.o,o.=,o.o".split`,`.find(b=>a.includes(b))

Вероятно, требуется Chrome 45 или Firefox 41.

Спасибо @ETHproductions за сохранение 9 байтов.

> <> , 55 байт

попробуйте это здесь!

<v~i:i&0"."0
 >i:@+:&:@)?v&~i0(?v
 ^?)0i:r~r&~<;ooo$r<

Выходы самого бодрствующего лица.

Поскольку значения ASCII для -, = и o увеличиваются соответственно, я мог бы использовать это в своих интересах. В основном это добавляет значения текущей и предыдущей части глаза, проверяет, является ли это более высоким значением, чем прежде, если это - оно сохраняет новое значение и обновляет то, что представляет лицо, а затем зацикливается до конца ввода. Затем выводит лицо, которое осталось. (Я очень рад тому, как хорошо все код помещается на место)

Perl 5 -MList::Util=max -p , 68 байт

s|..(?=(.))|$t=max$t,ord($&)%15%4+ord($1)%15%4 .$&.$1|eg;$_=$t;s/.//

Попробуйте онлайн!

Захватывает каждый набор из трех символов, игнорирует .в середине, отображает сложение двух других в целое число в диапазоне 0-4, объединяет это с передней частью лица смайлика, а затем сортирует по этому. Захватывает последнюю запись (наиболее активную), удаляет номер спереди и выводит его.