Tulis program atau fungsi yang mengambil string karakter di -=o.mana karakter -=o's dan .' selalu berganti, menjadi karakter. String akan memiliki panjang ganjil lebih besar dari satu dan selalu mulai dan berakhir di salah satu -=o.

Pada dasarnya, input akan terlihat seperti garis wajah emotikon yang berbagi mata di berbagai keadaan kantuk, misalnya

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

Tujuan Anda adalah mencetak atau mengembalikan wajah yang paling mengantuk atau paling terjaga (terserah Anda yang Anda pilih). Jika ada banyak pilihan untuk siapa yang paling mengantuk / paling terjaga maka salah satu dari mereka mungkin menjadi output.

Ada sembilan wajah berbeda dan lima tingkat mengantuk:

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

Dalam kasus itu tidak jelas, persentase kantuk dihitung dengan menetapkan 1untuk -untuk sepenuhnya tertidur, 0.5untuk =selama setengah tertidur, dan 0untuk ountuk terjaga. Maka jumlah dari dua nilai mata dibagi dua adalah persentase.

Kode terpendek dalam byte menang.

Uji Kasus

Tertidur

-.- 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 =.-

Kebanyakan terjaga

-.- 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 byte

hoSN%2.:z3

Ini mencetak emotikon yang paling mengantuk. Verifikasi semua kasus uji sekaligus di Pyth Compiler .

Kredit diberikan ke @ Sp3000 untuk gagasan menggunakan penyortiran .

Bagaimana itu bekerja

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 byte

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

Ini adalah fungsi yang mengembalikan wajah yang paling terjaga.

Terima kasih banyak kepada xnor karena telah memberikan banyak trik taktis untuk mempersingkat algoritma asli saya.

CJam, 12 byte

q3ew2%{$}$0=

Ini mencetak emotikon yang paling mengantuk. Coba biola ini atau test suite ini dalam juru bahasa CJam.

Kredit diberikan ke @ Sp3000 untuk gagasan menggunakan penyortiran .

Bagaimana itu bekerja

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.

Dyalog APL, 35 28 byte

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

Ini adalah fungsi monadik yang mengambil string di sebelah kanan dan menampilkan wajah paling mengantuk.

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

Prolog, 205 189 byte

Kode

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

Penjelasan

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

Contoh

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

Sunting: Disimpan 16 byte dengan menyatukan r-klausa dengan OR.

Clojure, 82 byte

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

Bonus: fungsi kecil berikut mencetak wajah yang sama, tetapi dengan lebih banyak gaya!

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

Tes di sini.

Ruby, 59 byte

Fungsi mengembalikan wajah paling mengantuk, menggunakan trik penyortiran.

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

Disebut seperti ini:

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

Bekerja pada tatanan mata canggung karena jenis mata internal:

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

Minkolang 0,12 , 119 byte

Pada awalnya, saya mencoba melakukan ini pendek dan sangat golf. Saya menyerah dan pergi untuk sesuatu yang sedikit lebih "menyenangkan", tetapi masih relatif golf.

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

Coba di sini!

Penjelasan

Tapi sungguh, klik tautan di atas dan klik Slow! Bagaimanapun...

>2@fv

Ini melompati fv, yang akan menjadi penting nanti.

$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

Apa yang dilakukan adalah meletakkan di ^sebelah wajah yang cocok. Jadi sekarang kotak kode mungkin terlihat seperti ini:

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

Tanpa komentar, tentu saja. Sekarang, 40wlubang cacing mengirim pointer instruksi v, yang segera mengarahkannya kembali F. Sekarang, Fadalah perintah "gosub". Ini seperti goto, tetapi Anda dapat kembali ke tempat Anda menyebutnya. Pada saat Fditemui, tumpukan adalah [3,1], sehingga melompat ke 1(mungkin) di baris kedua. Saat penghitung program mengarah ke bawah, program berlanjut, mendorong 1s ke tumpukan di sepanjang jalan. Yaitu ... sampai menyentuh ^, pada titik mana itu diarahkan kembali, di mana ia mendorong masing-masing 1lagi. Penunjuk instruksi kemudian mengenai f, yang mengembalikan posisi dan arahnya (ketika Fditemui sebelumnya). Untuk kenyamanan, saya akan mengambil kode berikut dan mengubah tata letaknya. (Itu</\ berfungsi untuk mengarahkan pointer instruksi sesuai kebutuhan.)

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

Saya sebenarnya agak bangga dengan bagaimana saya menggunakan beberapa fitur unik untuk Minkolang yang belum pernah saya gunakan sebelumnya. Terutama ternary dan gosub. Bagaimanapun, begitulah!

C, 70 byte

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

Fungsi mengembalikan wajah yang paling terjaga. Ini memodifikasi string input di tempat, sehingga mengembalikan string yang diakhiri null.

Python 2/3, 54 56 byte

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

Hanya ingin mengambil taktik alternatif untuk jawaban rekursif xsot.

Ini mengambil tuple terbaik (atau terburuk?) Dari sepasang mata yang berdekatan dan menggabungkannya.

Ganti maks dengan min untuk mengembalikan paling mengantuk (seperti ini mengembalikan paling terjaga)

Tampaknya bekerja, menggunakan tes berikut:

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)

Yang memberikan hasil sebagai berikut:

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

Brachylog , 10 byte

s₃ᶠġ₂hᵐoᵒh

Cobalah online!

Diterjemahkan dari jawaban Pyth Dennis.

Mathematica, 61 byte

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

Cocok untuk yang paling mengantuk.

F # 60

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

Pengembalian paling wajah terjaga (perubahan maxoleh minkarena yang tidur itu)

Perl 5, 127 byte

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

(Saya yakin ini bisa dilakukan lebih singkat.) Cara kerjanya:

1. Raih masing-masing string tiga karakter dari string, dengan tumpang tindih satu (itulah yang --posdilakukannya).
2. Tambahkan string tiga karakter ke array jika nilainya melebihi elemen terakhir array; di sini, "nilai" hanyalah jumlah nilai karakternya dalam kantuk.
3. Cetak elemen terakhir dari array.

ES6, 81 72 byte

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

Mungkin membutuhkan Chrome 45 atau Firefox 41.

Terima kasih kepada @ETHproductions untuk menghemat 9 byte

> <> , 55 byte

coba di sini!

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

Output wajah paling terjaga.

Karena nilai ASCII untuk -, =, dan o masing-masing meningkat, saya dapat menggunakannya untuk keuntungan saya. Pada dasarnya ia menambahkan nilai-nilai dari bagian mata saat ini dan sebelumnya, memeriksa apakah itu nilai yang lebih tinggi dari sebelumnya, jika itu menyimpan nilai baru dan memperbarui apa yang diwakilinya, kemudian loop sampai akhir input. Lalu output wajah yang tersisa. (Saya sangat senang melihat betapa bagusnya semua kode di tempatnya)

Perl 5 -MList::Util=max -p , 68 byte

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

Cobalah online!

Raih masing-masing set tiga karakter, abaikan .di tengah, petakan penambahan dua lainnya ke integer di kisaran 0-4, gabungkan bahwa ke depan wajah emotikon, lalu urutkan berdasarkan itu. Raih entri terakhir (paling terjaga), hapus nomor dari depan, dan keluarkan.