Persaingan ini berakhir.

Pemenangnya adalah CJam dengan 22 karakter, mengalahkan jawaban TwiNight dengan satu karakter. Selamat, Dennis !

Disebutkan dengan terhormat oleh Falko , yang benar-benar gila dengan impor gratis.

.

Beberapa waktu yang lalu saya ingin tahu bagaimana saya bisa mengetikkan smartphone modern dengan Nokia 3310 saya, dan sementara beberapa jawaban benar-benar baik, saya masih tidak bisa mengimbangi! Mungkin saya harus mengambil pendekatan yang berbeda dan tidak menulis kata-kata yang aneh untuk diketik.

Kami akan memanggil sepotong teks yang mudah diketik jika tidak ada dua huruf berurutan pada tombol yang sama pada keyboard telepon, mengingat tata letak standar:

Tugas Anda

Tugas Anda adalah menulis program / fungsi yang menerima string sdari stdin / sebagai parameter dan mengembalikan nilai yang sebenarnya jika smudah diketik dan nilai palsu sebaliknya. Masukan hanya akan terdiri dari huruf kecil dan spasi dan dijamin tidak kosong!

Mencetak gol

Ini codegolf, jadi karakter-hitung terendah menang.

Pernyataan impor tidak akan dihitung terhadap skor akhir Anda, jadi jika Anda pernah ingin digunakan std::set_symmetric_difference, liftM4atau itertools.combinationsdalam kode Anda, sekarang adalah waktu!

-3 jika kode sumber Anda mudah diketik, anggap semua yang bukan huruf ada di tombol 0. Lagipula, saya mungkin ingin mengirimkan kode Anda ke beberapa teman!

Testcases

Berikut adalah beberapa testcases untuk memeriksa apakah kode Anda berfungsi sebagaimana dimaksud:

"x" -> True
"aardvark" -> False
"ardvark" -> True
"flonk" -> False

"im codegolfing all day long" -> False
"i indulge in minimizing bytecount" -> True

"havent heard from you in a long time" -> False
"your silence was of undue permanence" -> True

"how are  you" -> False
"how are you" -> True

Selamat bermain golf!

CJam, 34 31 27 22 karakter

1l{'h-_9/-D+3/X\:X^*}/

Cobalah online.

Contoh dijalankan

$ cjam <(echo "1l{'h-_9/-D+3/X\:X^*}/") <<< 'aardvark'; echo
0
$ cjam <(echo "1l{'h-_9/-D+3/X\:X^*}/") <<< 'ardvark'; echo
66000

Bagaimana itu bekerja

1l                         " Push a R := 1 and read a line L from STDIN.                  ";
                           " Initialize X := 1. (implicit)                                ";
  {                  }/    " For each character C of L, do the following:                 ";
    'h-                    "     C -= 'h'                                                 ";
       _9/-D+3/            "     Y := (C - C / 9 + 13) / 3                                ";
               X\  ^*      "     R *= X ^ Y                                               ";
                 :X        "     X := Y                                                   ";
                           " Print R. (implicit)                                          ";

Latar Belakang

Inti dari kode terdiri dalam menerapkan peta F untuk setiap karakter C dari string input sehingga gambar simbol pada pencocokan kunci yang sama. Saya menemukan peta yang sesuai dengan mengamati hal-hal berikut:

Peta T: C ↦ (C - 'h') + 13 mengubah string S: = "abcdefghijklmnopqrstuvxyz" sebagai berikut:

[-59   6  7  8   9 10 11  12 13 14  15 16 17  18 19 20  21 22 23 24  25 26 27  28 29 30 31]

Untuk kunci 0untuk 6, itu akan cukup untuk membagi T (C) oleh 3 , tapi kami harus menerapkan semacam koreksi karakter dalam s , t , v , y dan z .

Peta D: C ↦ (C - 'h') / 9 mengubah string S menjadi array berikut:

[ -8   0  0  0   0  0  0   0  0  0   0  0  0   0  0  0   0  1  1  1   1  1  1   1  1  1  2]

Ini mengoreksi quotients dari s , t , v , y dan z , tanpa mempengaruhi yang lain.

Akhirnya, peta F: C ↦ (T (C) - D (C)) / 3 mengubah string S sebagai berikut:

[-17   2  2  2   3  3  3   4  4  4   5  5  5   6  6  6   7  7  7  7   8  8  8   9  9  9  9]

Yang tersisa hanyalah membandingkan karakter yang berurutan. Untuk tujuan itu, kita XOR F (C) dengan gambar karakter sebelumnya - untuk yang pertama, kita XOR F (C) dengan 1 (nilai default dari variabel X ), yang tidak memiliki preimage - dan gandakan semua hasil.

Produk ini akan falsy jika dan hanya jika salah satu faktor adalah nol, yaitu, jika dan hanya jika dua karakter berturut-turut memiliki gambar yang sama dengan F .

Python 2 - 80, 68, 64, 61, 58, 50, 48, 45, 44 42

Meskipun sekarang sudah agak konyol, saya akan terus menggunakan impor perpustakaan gratis, bahkan __builtin__ perpustakaan:

from numpy import diff as D
from pprint import pprint as P
from __builtin__ import all as A
from __builtin__ import raw_input as I
from __builtin__ import bytearray as B

Jadi hanya baris pendek berikut yang dihitung terhadap panjang kode:

P(A(D([(o-o/112-o/59)/3for o in B(I())])))

Penghargaan untuk Markuz untuk ide-ide tentang input() ! Tantangan impor bebas ini selalu memperkenalkan Anda ke beberapa perpustakaan yang kurang dikenal. ;)

Alternatif hanya menggunakan operatorperpustakaan ( 98, 83 79):

from operator import ne as n
K=[(ord(c)-1-(c>'p')-(c>'w'))/3for c in input()]
print all(map(n,K[1:],K[:-1]))

Saya akan berhenti di sini. Tapi Anda bisa lebih jauh golf versi ini menggunakan sys,pprint dan perpustakaan lain ...

Alternatif tanpa perpustakaan (105):

s=input()
n=lambda c:(ord(c)-1-(c>'p')-(c>'w'))/3
print all([n(s[i])!=n(s[i+1])for i in range(len(s)-1)])

Ruby Regex (rasa paling populer), 106 83 byte

Karena regex

^(?!.*(  |[abc]{2}|[def]{2}|[ghi]{2}|[jkl]{2}|[mno]{2}|[p-s]{2}|[tuv]{2}|[w-z]{2}))

Saya baru saja memotong perantara (Ruby) dan membuat ini solusi regex murni. Berfungsi dalam banyak rasa dan hanya menemukan kecocokan jika string tidak mengandung dua karakter berturut-turut pada tombol yang sama.

Bash + coreutils, 49

tr a-z $[36#8g7e9m4ddqd6]7778888|grep -Pq '(.)\1'

Mengembalikan kode keluar 1 untuk BENAR dan 0 untuk SALAH:

$ for s in "x" "aardvark" "ardvark" "flonk" "im codegolfing all day long" "i indulge in minimizing bytecount" "havent heard from you in a long time" "your silence was of undue permanence" "how are  you" "how are you"; do echo "./3310.sh <<< \"$s\" returns $(./3310.sh <<< "$s"; echo $?)"; done
./3310.sh <<< "x" returns 1
./3310.sh <<< "aardvark" returns 0
./3310.sh <<< "ardvark" returns 1
./3310.sh <<< "flonk" returns 0
./3310.sh <<< "im codegolfing all day long" returns 0
./3310.sh <<< "i indulge in minimizing bytecount" returns 1
./3310.sh <<< "havent heard from you in a long time" returns 0
./3310.sh <<< "your silence was of undue permanence" returns 1
./3310.sh <<< "how are  you" returns 0
./3310.sh <<< "how are you" returns 1
$ 

APL (Dyalog), 24 23

~∨/2=/⌊¯13⌈.21-.31×⎕AV⍳⍞

∧/2≠/⌊¯13⌈.21-.31×⎕AV⍳⍞

Penjelasan

⍞: Mengambil input string dari layar
⎕AV: Ini adalah vektor atom yang pada dasarnya adalah string dari semua karakter yang dikenal APL, yang tentu saja mencakup semua huruf kecil (indeks 18 ~ 43) dan spasi (indeks 5)
⍳: IndexOffungsi. Untuk banyak fungsi dalam APL yang membutuhkan satu atau dua argumen skalar, Anda dapat memberinya larik sebagai pengganti skalar - APL akan melakukan pengulangan untuk Anda. Jadi ⍳mengembalikan array numerik indeks. .21-.31×: Kali 0,31 dan kemudian kurangi dari 0,21. Ini adalah sedikit trik yang memetakan huruf pada tombol yang sama (terutama PQRS) ke nomor yang sama (ketika dibulatkan ke bilangan bulat), kecuali Z, yang dipetakan ke grupnya sendiri
¯13⌈: maxdengan -13. Ini membawa Z kembali ke grup dengan WXY
⌊ : Round down to integer
2≠/: Pairwise-≠. Mengembalikan array boolean untuk setiap pasangan berturut-turut.
∧/: DAN bersama-sama semua entri dari array yang dihasilkan.

Perl - 44

Ini pada dasarnya adalah adaptasi Perl dari jawaban DigitalTrauma diposting dengan izinnya. Memotong 2 karakter berkat @KyleStrand.

y/b-y/aadddgggjjjmmmpppptttzzz/;$_=!/(.)\1/

43 karakter +1 untuk -pbendera. y///sama dengan tr///. Mencetak 1untuk yang benar dan tidak untuk yang salah. Saya dapat memposting penjelasan terperinci jika diminta.

Contoh dijalankan:

perl -pE'y/b-y/aadddgggjjjmmmpppptttzzz/;$_=!/(.)\1/' <(echo "x")

Perl - 81

$s=join"]{2}|[",qw(abc def ghi jkl mno p-s tuv w-z);say/^(?!.*(  |[$s]{2}))/?1:0

+1 untuk -n bendera. Ia bekerja dengan menggunakan joinuntuk membuat regex (sama seperti Martin ), yang mencukur beberapa byte.

Contoh dijalankan:

perl -nE'$s=join"]{2}|[",qw(abc def ghi jkl mno p-s tuv w-z);say/^(?!.*(  |[$s]{2}))/?1:0' <(echo "your silence was of undue permanence")

JavaScript - 159 156 byte

function g(s){p=n=-1;for(i=0;i!=s.length;i++){p=n;n=s.charCodeAt(i);n-=97;if(n>17)n--;if(n>23)n--;if(p==-1)continue;if(~~(p/3)==~~(n/3))return 0;}return 1;}

Mengembalikan 1 untuk truey dan 0 untuk falsy.

Kalau saja saya bisa menyingkirkan kata kunci.

c, 74 byte

main(c,d,r){for(;~(c=getchar());r*=d!=c/3,d=c/3)c-=--c/'p'*(c-'k')/7;c=r;}

Mengembalikan status keluar non-nol untuk TRUE dan 0 untuk FALSE:

$ for s in "x" "aardvark" "ardvark" "flonk" "im codegolfing all day long" "i indulge in minimizing bytecount" "havent heard from you in a long time" "your silence was of undue permanence" "how are  you" "how are you"; do echo "./3310 <<< \"$s\" returns $(./3310 <<< "$s"; echo $?)"; done
./3310 <<< "x" returns 40
./3310 <<< "aardvark" returns 0
./3310 <<< "ardvark" returns 216
./3310 <<< "flonk" returns 0
./3310 <<< "im codegolfing all day long" returns 0
./3310 <<< "i indulge in minimizing bytecount" returns 72
./3310 <<< "havent heard from you in a long time" returns 0
./3310 <<< "your silence was of undue permanence" returns 232
./3310 <<< "how are  you" returns 0
./3310 <<< "how are you" returns 8
$ 

Ruby 1.8, 89 83 81 78 byte

p$*[0].chars.map{|c|c=c[0];(c-c/?p-c/?w-1)/3}.each_cons(2).map{|a,b|a!=b}.all?

Ini adalah kiriman lain. Yang memalukan saya, ini mengalahkan regex. :(

Ini mengambil string melalui argumen baris perintah dan mencetak boolean.

Adapun algoritma, saya menggeser surat setelah psatu dan setelah zdua, dan kemudian saya memeriksa bahwa tidak ada tabrakan setelah pembagian integer oleh 3.

PS: Ini adalah pertama kalinya, yang menggunakan Ruby 1.8 mempersingkat kode (karena cara yang lebih pendek untuk mendapatkan kode karakter).

Cobra - 80

def f(s)
    for c in s
        for x in 9,if' adgjmptw'[x]>c,break
        t,f=x,t<>x
    print f

JavaScript (ES6) 66 74

F=s=>[...s].every(c=>[...' adgjmptw'].map(x=>s+=c<x,w=s,s=0)|s!=w)

Lingkaran dalam menemukan grup untuk setiap karakter. Secara konseptual adalah 'mengurangi' tetapi 'peta' lebih pendek. Lingkaran luar membandingkan kelompok karakter berturut-turut dan keluar dengan false jika mereka sama.

Uji di Firefox / Firebug console

;["x","aardvark","ardvark","flonk","im codegolfing all day long",
"i indulge in minimizing bytecount","havent heard from you in a long time",
"your silence was of undue permanence","how are  you","how are you"]
.forEach(x=>console.log(x + ' -> ' + F(x)))

Keluaran

x -> true
aardvark -> false
ardvark -> true
flonk -> false
im codegolfing all day long -> false
i indulge in minimizing bytecount -> true
havent heard from you in a long time -> false
your silence was of undue permanence -> true
how are  you -> false
how are you -> true

Perl, 83 byte

$_=<>;chop;map{$_=ord;$_=($_-$_/112-$_/119-1)/3;die 0 if$l==$_;$l=$_}split//;die 1

Membuat penyalahgunaan $ _ dalam Perl.

Dua tugas rumit dalam Python; mendeteksi rantai, dan menugaskan kelompok. Keduanya dapat dibantu menggunakan numpy, tetapi tidak di perpustakaan standar.

Python 2 (hanya perpustakaan standar) - 59 karakter berfungsi

from itertools import imap as M
from __builtin__ import bytearray as A, all as E
from operator import ne as D, not_ as N
from re import S, sub as X, search as F

# 68
#def f(s):
# g=[(n-n/115-n/61)/3for n in A(s)]
# return E(M(D,g,g[1:]))

# 67 with regex via regex
#f=lambda s:N(F(X('(\S)(.)',r'|[\1-\2]{2}','  acdfgijlmopstvwz'),s))

# 59 slightly optimized ordinal classifier and regex sequence detector
f=lambda s:N(F(r'(.)\1',A((n-n/23-n/30)/3for n in A(s)),S))

# 69 using itertools.groupby
#from itertools import groupby as G
#from __builtin__ import sum as S, len as L
#f=lambda s:N(S(L(A(g))-1for _,g in G((n-n/115-n/61)/3for n in A(s))))

Python 2 (hanya perpustakaan standar) - 53 karakter stdin untuk keluar dari nilai

Di sini saya menyalahgunakan fakta itu issubclass(bool,int), jadi mengubah all()agar any()saya mendapatkan nilai keluar yang valid, memotong not()dari nilai kembali. Penghapusan fungsi overhead membuat versi regex tertinggal dalam ukuran.

from itertools import groupby as G, imap as M
from __builtin__ import bytearray as A, any as E
from __builtin__ import raw_input as I
from sys import exit as Q
from operator import eq as S

g=[(n-n/23-n/30)/3for n in A(I())]
Q(E(M(S,g,g[1:])))

J - 42 char

Fungsi mengambil string di sebelah kanan.

*/@(2~:/\(I.4 3 4 1,~5#3){~(u:97+i.26)&i.)

Pertama-tama kita memetakan alfabet ( u:97+i.26) ke dalam angka 0 hingga 25, semua karakter lain (termasuk spasi) menuju 26 ( i.). Kemudian kami memetakan ( {~) tiga elemen pertama memetakan ke tombol pertama, tiga berikutnya ke tombol berikutnya, dan seterusnya melalui tombol-tombol pada pad telepon, pastikan untuk memetakan ruang / tanda baca lainnya ke tombol terpisah di akhir . ( 4 3 4 1,~5#3sama dengan 3 3 3 3 3 4 3 4 1dan I.mengubahnya menjadi array 27-item di mana tiga yang pertama adalah kunci 1, dll.) Lalu kami memeriksa ketimpangan berpasangan ( 2~:/\) dan DAN semua hasilnya bersama-sama ( */).

   */@(2~:/\(I.4 3 4 1,~5#3){~(u:97+i.26)&i.) 'i indulge in minimizing bytecount'
1
   f =: */@(2~:/\(I.4 3 4 1,~5#3){~(u:97+i.26)&i.)
   f 'im codegolfing all day long'
0
   f '*/@(2~:/\(I.4 3 4 1,~5#3){~(u:97+i.26)&i.)'  NB. no -3 bonus :(
0

Racket, 119

(define(f t)(for*/and([s(map ~a'(abc def ghi jkl mno pqrs tuv wxyz))][i s][j s])(not(regexp-match(format"~a~a"i j)t))))

Tidak disatukan (regexing kombinatorik):

(define(f t)
  (for*/and([s (map ~a '(abc def ghi jkl mno pqrs tuv wxyz))]
            [i s]
            [j s])
    (not (regexp-match (format "~a~a" i j) t))))

JavaScript - 152

Bukan pemenang, tetapi saya mencobanya. Ketukan @Lozzaaa sebesar 4 byte pada waktu posting :)

function m(a){c="abc-def-ghi-jkl-mno-pqrstuv-wxyz";j=a.split("");for(z in j)if(j[z]=Math.floor(c.indexOf(j[z])/4),0!=z&&j[z-1]==j[z])return 0;return 1};

Lewati semua tes.
Mengambil keuntungan dari kurangnya pengetikan JS untuk membuat array multi-tipe, dan ini mengambil keuntungan dari indexOf yang mengembalikan -1 untuk dukungan ruang.

Pemakaian:

m("string here")

Diasumsikan hanya huruf dan spasi alfabet huruf kecil. Mengembalikan 1 untuk true, 0 untuk false.

Mungkin jika saya tahu ES6 saya bisa mencoba tantangan kedua ...

ES6, JavaScript 89 70 karakter

Saya tahu ini bukan pemenang karena ketika datang ke operasi praktis seperti mendapatkan nilai karakter ASCII, JS menempatkan banyak mengasapi ( .charCodeAt()).

N=s=>[...s].every(c=>l-(l=(c.charCodeAt()-(c>"r")-(c>"y")-1)/3|0),l=1)

Jalankan di Web Console dari Firefox terbaru.

Pemakaian:

N("testing if this works")

Fungsi mengembalikan benar atau salah.

EDIT : Golf banyak menggunakan[...x].every trik yang dipelajari dari @ edc65 (Terima kasih!)

Saya akan mencoba golf lebih banyak :)

GML (Bahasa Pembuat Game), 149

s=argument0p=n=-1for(i=0;i<string_length(s);i++){p=n;n=string_char_at(s,i)-97;x=n>17&&n--;x=n>23&&n--‌​;if(!p)x=1if(!(p/3)=!(n/3))x=0}show_message(x)

Python 3 - 152 karakter

Bukan yang terpendek yang bisa saya lakukan, tetapi itu akan berlaku untuk saat ini

k=['abc','def','ghi','jkl','mno','pqrs','tuv','wxyz',' ']
x=input()
l=2>1
for i in range(len(x)-1):
 for j in k:
  if x[i+1] in j and x[i] in j:l=1>2
print(l)