Thử thách

Lấy cảm hứng từ video này

Như bạn có thể biết, palindrom là một từ được đánh vần giống như trước. Từ "PULP" không phải là một bảng màu, nhưng khi được dịch sang Mã Morse (với khoảng cách giữa các chữ cái bị xóa), "PULP" trở thành ". - ...-.-...--." đó là một palindrom. Nhiệm vụ của bạn là viết một chương trình hoặc hàm lấy một chuỗi và trả về việc từ đó có phải là một bảng màu trong Mã Morse quốc tế hay không.

A: .-
B: -...
C: -.-.
D: -..
E: .
F: ..-.
G: --.
H: ....
I: ..
J: .---
K: -.-
L: .-..
M: --
N: -.
O: ---
P: .--.
Q: --.-
R: .-.
S: ...
T: -
U: ..-
V: ...-
W: .--
X: -..-
Y: -.--
Z: --..

Quy tắc

Đầu vào

Đầu vào có thể được thực hiện trong bất kỳ định dạng hợp lý. Chuỗi đầu vào sẽ chỉ chứa các chữ cái trong mọi trường hợp bạn thích. Chuỗi sẽ không chứa dấu cách, số hoặc dấu chấm câu.

Đầu ra

Chương trình của bạn sẽ xuất ra 1 trong 2 kết quả khác biệt không đổi dựa trên việc liệu đầu vào có phải là một bảng màu hay không, ví dụ: Đúng / Sai, 1/0, HOTDOG / NOTHOTDOG

Chấm điểm

Đây là mã golf để câu trả lời ngắn nhất trong byte thắng. Sơ hở tiêu chuẩn bị cấm.

Các trường hợp thử nghiệm

Đầu vào => Đầu ra

"PULP"       => True
"RESEARCHER" => True
"HOTDOGS"    => True
""           => True
"A"          => False
"RACECAR"    => False
"PROGRAMMING"=> False
"PUZZLES"    => False

Thạch , 28 byte

ØAŻŻ“¡9o|çṫ¡X1ỴỌġQ’œ?iⱮḃ2FŒḂ

Hãy thử trực tuyến!

ØA                             The uppercase alphabet.
  ŻŻ                           Prepend two zeroes.
    “¡9o|çṫ¡X1ỴỌġQ’œ?          Get the 73540211105102870315464559332nd permutation.
                                  (= “ETIANMSURWDKGOHVF0L0PJBXCYZQ”)
                     iⱮ        Find indices of input letters in this list.
                       ḃ2      Bijective base 2: map [1,2,3,4,5…] to
                                 [1], [2], [1,1], [1,2], [2,1], …
                         F     Flatten.
                          ŒḂ   Is palindrome?

Tôi đã viết câu trả lời này khi nhìn vào một trong số này (đọc các hàng từ phải sang trái và bạn nhận được chuỗi ma thuật của tôi!):

Thạch ,  35 32 27  25 byte

-2 nhờ Dennis (thay đổi hoán vị để tránh %32)

Oị“¡\ḣḶɼz3ç³ƝMƒ§’Œ?¤ḃ2FŒḂ

Đưa đầu vào trong chữ hoa; đầu ra là 1đúng, 0sai.

Hãy thử trực tuyến! Hoặc xem bộ thử nghiệm .

Làm sao?

Oị“...’Œ?¤ḃ2FŒḂ - Link: list of characters (in [A-Za-z]), S   e.g. 'FoOl'
O               - to ordinals                                      [70,111,79,108]
 %32            - modulo by 32 (A->1, a->1, ...)                   [6,15,15,12]
         ¤      - nilad followed by link(s) as a nilad:
  “...’         -   base 250 literal = 41482574787853596522350494865
       Œ?       -   first permutation of [1,N] which resides at that
                -   index when all permutations of [1,N] are sorted
                -   = [8,16,10,24,26,27,18,20,4,23,25,11,1,17,13,15,3,22,12,19,6,5,14,21,28,9,7,2]
                - index into (modular-indexing & vectorises)       [17,14,14,19]
          ḃ2    - to bijective base 2 (vectorises)                 [[1,1,2,1],[2,2,2],[2,2,2],[1,2,1,1]]
            F   - flatten                                          [1,1,0,1,0,0,0,0,0,0,1,0,1,1]
             ŒḂ - is palindromic?                                  1

Giải pháp 35 byte trước đó (cũng lấy đầu vào bằng chữ in hoa) ...

ØẠḣ29“...’œ?iⱮ⁸d⁴BnⱮ/€FŒḂ - Link: list of characters (in [A-Z] only), S
ØẠ                        - alphabet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
  ḣ29                     - head to index 29 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabc'
     “...’                - base 250 literal = 1222276956185766767980461920692
          œ?              - permutation at index = 'EAIWRUSJPaLbFVHcTNMDKGOBXCYZQ'
              ⁸           - chain's left argument = S       e.g. 'FOOL'
             Ɱ            - map with:
            i             -   first index of (char in 'EAI...')  [13,23,23,11]
                ⁴         - literal 16                           16
               d          - divmod                               [[0,13],[1,7],[1,7],[0,11]]
                 B        - to binary (vectorises)               [[[0],[1,1,0,1]],[[1],[1,1,1]],[[1],[1,1,1]],[[0],[1,0,1,1]]]
                     €    - for each:
                    /     -   reduce by:
                   Ɱ      -     map with:
                  n       -       not equal                      [[1,1,0,1],[0,0,0],[0,0,0],[1,0,1,1]]
                      F   - flatten                              [1,1,0,1,0,0,0,0,0,0,1,0,1,1]
                       ŒḂ - is palindromic?                      1

APL Dyalog , 24 byte

⎕CY'dfns'
⎕←(⌽≡⊢)∊morse⍞

Hãy thử trực tuyến!

dfns không bao giờ hết ngạc nhiên

MBASIC , 325 byte

Nỗ lực đầu tiên, trước khi những khẩu súng lớn đến đây :-)

1 DATA .-,-...,-.-.,-..,.,..-.,--.,....,..,.---,-.-,.-..,--,-.,---,.--.,--.-,.-.,...,-,..-,...-,.--,-..-,-.--,--..
2 DIM C$(26):FOR I=1 TO 26:READ C$(I):NEXT:INPUT T$:FOR I=1 TO LEN(T$):N=ASC(MID$(T$,I,1))-64:S$=S$+C$(N):NEXT:L=LEN(S$):FOR I=1 TO L:IF MID$(S$,I,1)<>MID$(S$,(L+1)-I,1) THEN 4
3 NEXT:PRINT"True":END
4 PRINT"False

Đầu ra

? PULP
True

? RESEARCHER
True

? HOTDOGS
True

?
True

? A
False

? RACECAR
False

? PROGRAMMING
False

? PUZZLES
False

JavaScript (Node.js) , 111 byte

x=>(u=[...x.replace(/./g,_=>"**ETIANMSURWDKGOHVF*L*PJBXCYZQ".indexOf(_).toString(2).slice(1))])+''==u.reverse()

Hãy thử trực tuyến!

Perl 6 , 87 byte

{$_ eq.flip}o*.trans(/./=>{S/.//}o{'  ETIANMSURWDKGOHVF L PJBXCYZQ'.index($/).base(2)})

Hãy thử trực tuyến!

Chuyển đổi từ thành một chuỗi 1 và 0 và kiểm tra xem nó có phải là palindromic không.

Giải trình:

             *.trans(/./=>  # Translate each letter of the input to
                                   '...'.index($/)   # The index of the letter in the lookup string
                                                  .base(2)  # Converted to binary
                          {S/.//}o{                       } # With the first digit removed
{$_ eq.flip}o   # Return if the string is equal to its reverse

Python 3 , 172 148 104 byte

Mã golf đầu tiên bao giờ hết. Hãy tử tế và cung cấp bất kỳ trợ giúp :)

Điều này dựa trên câu trả lời C #: /codegolf//a/175126/83877 . Tôi đã lấy những ý tưởng tương tự và áp dụng nó cho Python 3. Tôi đã cố gắng hết sức để chơi golf-ify mã, nhưng tôi chắc chắn rằng tôi còn có thể làm được nhiều hơn nữa.

EDIT 1: Cảm ơn @Stephen và @Cowabunghole đã giúp tôi xóa một số khoảng trắng và mã không cần thiết.

EDIT 2: Cảm ơn @JoKing về đề xuất thực hiện nó trong hệ nhị phân. Đây là một mẹo thực sự gọn gàng trong đó '-' và '.' thậm chí không cần thiết Điều này dẫn đến việc giảm byte rất lớn.

Giải pháp

def b(w):x=''.join(map(lambda c:bin('  ETIANMSURWDKGOHVF L PJBXCYZQ'.index(c))[3:],w));return x==x[::-1]

Hãy thử trực tuyến!

Bình thường, 35 33 byte

Mã này chứa các ký tự không thể in được, vì vậy đây là một hexdump.

00000000: 5f49 7358 7a47 632e 2207 0901 3f08 82ee  _IsXzGc."...?...
00000010: bd3f c256 9d54 c381 7dac 6590 37d3 c8f5  .?.V.T..}.e.7...
00000020: 52                                       R

Hãy thử trực tuyến. Bộ thử nghiệm.

Giải trình

Bắt đầu từ ."cuối mã tạo ra bảng chữ cái Morse, với các dấu chấm \x08và dấu gạch ngang \x07và được phân tách bằng các tab.

c chia chuỗi bằng các tab.

XzGdịch ( X) đầu vào ( z) từ bảng chữ cái ( G) sang "bảng chữ cái Morse" này.

stổng (tham gia) các biểu tượng Morse với nhau. Đối với đầu vào trống, trả về 0, nhưng đây không phải là vấn đề.

_Ikiểm tra nếu kết quả không thay đổi ( I) khi đảo ngược ( _). Đối với đầu vào trống, kiểm tra nếu 0 không thay đổi khi bị phủ định.

Võng mạc 0.8.2 , 87 byte

[B-ILNPRSZ]
$&.
[AJKMOQT-Y]
$&-
}T`L`\EDKN_UMS\EWNRTTMWGAI_ISADKG
+`^(.)(.*)\1$
$2
^.?$

Hãy thử trực tuyến! Liên kết bao gồm các trường hợp thử nghiệm. Giải trình:

[B-ILNPRSZ]
$&.

Tất cả các mã Morse cho các chữ cái trong bộ này đều kết thúc bằng ..

[AJKMOQT-Y]
$&-

Tất cả các mã Morse cho các chữ cái trong bộ này đều kết thúc bằng -.

T`L`\EDKN_UMS\EWNRTTMWGAI_ISADKG

Thay thế mỗi chữ cái bằng chữ cái có mã Morse là tiền tố của chữ cái đó (ở đây Evà Tđược xóa đơn giản thông qua ký tự không được giải mã _, nhưng thông thường chúng sẽ được chuyển thành khoảng trắng). Chẳng hạn, Pmã Morse Wcó thêm .phần cuối; chúng tôi đã thêm .ở trên để bây giờ tất cả những gì còn lại là để giải mã W.

}

Lặp lại các giai đoạn trên cho đến khi không còn chữ cái nào.

^(.)(.*)\1$
$2

Nếu các ký tự đầu tiên và cuối cùng giống nhau, hãy xóa cả hai.

+`

Lặp lại cho càng nhiều ký tự phù hợp.

^.?$

Nếu đây là một bảng màu, thì có nhiều nhất một ký tự.

Ngôn ngữ Wolfram (Mathicala) , 107 byte

PalindromeQ[##2&@@@(IntegerDigits[Tr@StringPosition[" ETIANMSURWDKGOHVF L PJBXCYZQ",#],2]&/@Characters@#)]&

Hãy thử trực tuyến!

Tương tự như câu trả lời Jelly này : chúng ta nghĩ mã Morse là nhị phân và viết ra một chuỗi " ETIANMSURWDKGOHVF L PJBXCYZQ"trong đó vị trí của một ký tự, trong nhị phân, cung cấp cho chúng ta mã Morse. Nhưng với thêm 1 dự phòng vì chúng tôi muốn phân biệt S = 000và H = 0000, ví dụ. Sau đó ##2&@@@đồng thời thoát khỏi dẫn đầu 1 này và làm phẳng.

05AB1E , 37 byte

v•1êÿµµÈ∞Ƶipδ8?a¡š%=тîδ/•3B0¡Aykè}JÂQ

Hãy thử trực tuyến!

Mã hóa bảng chữ cái trong cơ sở 3, được chuyển đổi sang cơ sở 255:

12021110212102110101121022101111011012220212012110220210222012210221201210111020112011120122021120212202211

Cơ sở 255:

•1êÿµµÈ∞Ƶipδ8?a¡š%=тîδ/•

Sau đó, về cơ bản, tôi tách nó ra khỏi 0, xây dựng chuỗi theo vị trí và kiểm tra palindrom.

C # (.NET Core) , 191 byte

a=>{var s="";int r=1,x=0,i;foreach(var t in a){var c="";for(i=" ETIANMSURWDKGOHVF L PJBXCYZQ".IndexOf(t);i>0;i/=2)c="-."[i--%2]+c;s+=c;}i=s.Length;for(;x<i;x++)r=s[x]==s[i-x-1]?r:0;return r;}

Hãy thử trực tuyến!

Một phần của câu trả lời này được chuyển thể từ môn đánh gôn morse của Nick Larsen . Dựa trên các ý kiến ​​về câu trả lời, điều này có khả năng có thể được đánh gôn hơn nữa.

Ung dung:

a => {
    var s = "";                 // initialize s
    int r = 1, x = 0, i;        // initialize r, x, and i

    /*
        This portion was adapted from Nick Larsen. He described it as follows:
            -- The string of characters is a heap in which the left child is a dot and the right child is a dash.
            -- To build the letter, you traverse back up and reverse the order.
        I have edited it to remove number support, which saves 34 bytes.
    */
    foreach(var t in a)
    {
        var c = "";
        for(i = " ETIANMSURWDKGOHVF L PJBXCYZQ".IndexOf(t); i > 0; i /= 2)
            c = "-."[i-- % 2] + c;
        s += c;
    }

    i = s.Length;               // reuse i and set to the length of the morse code string
    for(; x < i; x++)           // increment x until x reaches i
        r = s[x] == s[i - x - 1] ?      // if the xth character on the left side of s is equal to the xth character on the right side of s
                                    r :     // true: do not change r
                                        0;  // false: set r to zero (set to false)

    return r;
}

PowerShell , 204 187 byte

param($a);$a|% t*y|%{$b+=[convert]::ToString("  ETIANMSURWDKGOHVF L PJBXCYZQ".IndexOf($_),2).substring(1)};$c=($b=($b|% *ce 0 .|% *ce 1 -)).ToCharArray();[array]::Reverse($c);$b-eq-join$c

Hãy thử trực tuyến!

Lỗi trên chuỗi null ... Có ai có thể giúp với điều này không?

Mã kiểm tra (Sau khi gói mã trong Khối tập lệnh và được gán cho biến $ Z ...):

$tests = @(
    "PULP", "True"
    "RESEARCHER", "True"
    "HOTDOGS", "True"
    "A", "False"
    "RACECAR", "False"
    "PROGRAMMING", "False"
    "PUZZLES", "False"
)
$outputs = @()
for($i = 0; $i -lt $tests.length/2; $i++){
    $output = New-Object "PSObject"
    $output  | Add-Member -MemberType NoteProperty -Name Name -Value "`"$($tests[2*$i])`""
    $output | Add-Member -MemberType NoteProperty -Name Expected -Value $tests[2*$i + 1]
    $output | Add-Member -MemberType NoteProperty -Name Result -Value $(&$Z -a $tests[2*$i])
    $outputs += $output 
}
$outputs | Format-Table

Đầu ra:

Name          Expected Result
----          -------- ------
"PULP"        True       True
"RESEARCHER"  True       True
"HOTDOGS"     True       True
"A"           False     False
"RACECAR"     False     False
"PROGRAMMING" False     False
"PUZZLES"     False     False