पायथ , 106 बाइट्स
DhNR.n.e+]++.[\.sllN::.Bk\0\.\1\-\ b*]*\ +2sllNt/16lNNjmj*3\ d.t[h"ET"h"IANM"h"SURWDKGO"h"HVF L PJBXCYZQ
इसे ऑनलाइन टेस्ट करें!
व्याख्या
कुछ शब्दों में, मैं यहाँ क्या कर रहा हूँ तालिका स्तंभ स्तंभ द्वारा उत्पन्न करना और फिर मुद्रण करने से पहले तालिका को स्थानांतरित करना। हम देखते हैं कि एक कॉलम में अक्षरों के लिए मोर्स कोड को बाइनरी स्ट्रिंग्स ( .
द्वारा 0
और उसके -
द्वारा प्रतिस्थापित 1
) के रूप में दर्शाया जा सकता है जब कॉलम में अंतिम अक्षर के शून्य से सूचकांक तक गिना जाता है।
एल्गोरिथ्म एक फ़ंक्शन पर निर्भर करता है जिसमें से मैं नीचे (दूसरे कॉलम के लिए) एक उदाहरण देता हूं:
1. Takes "IANM" as input
2. Generates the binary representations of zero up to len("IANM"): ["0", "1", "10", "11"]
3. Replace with dots and hyphens: [".", "-", "-.", "--"]
4. Pad with dots up to floor(log2(len("IANM"))): ["..", ".-", "-.", "--"]
5. Add the corresponding letters: [".. I", ".- A", "-. N", "-- M"]
6. After each element, insert a list of 16 / len("IANM") - 1 (= 3) strings containing only spaces of length floor(log2(len("IANM"))) + 2 (= 4):
[".. I", [" ", " ", " "], ".- A", [" ", " ", " "], "-. N", [" ", " ", " "], "-- M", [" ", " ", " "]]
7. Flatten that list:
[".. I", " ", " ", " ", ".- A", " ", " ", " ", "-. N", " ", " ", " ", "-- M", " ", " ", " "]
8. That's it, we have our second column!
कोड स्पष्टीकरण
मैंने दो में कोड काट दिया। पहला भाग ऊपर वर्णित फ़ंक्शन है, दूसरा भाग यह है कि मैं फ़ंक्शन का उपयोग कैसे करूं:
DhNR.n.e+]++.[\.sllN::.Bk\0\.\1\-\ b*]*\ +2sllNt/16lNN
DhNR # Define a function h taking N returning the rest of the code. N will be a string
.e N # For each character b in N, let k be its index
.Bk # Convert k to binary
: \0\. # Replace zeros with dots (0 -> .)
: \1\- # Replace ones with hyphens (1 -> -)
.[\.sllN # Pad to the left with dots up to floor(log2(len(N))) which is the num of bits required to represent len(N) in binary
++ \ b # Append a space and b
] # Make a list containing only this string. At this point we have something like [". E"] or [".. I"] or ...
+ *]*\ +2sllNt/16lN # (1) Append as many strings of spaces as there are newlines separating each element vertically in the table
.n # At this point the for each is ended. Flatten the resulting list and return it
(1) : मोर्स टेबल में, पहले कॉलम में, प्रत्येक पंक्ति के बाद सात पंक्तियाँ होती हैं जिसमें एक अक्षर ("E" और "T") होता है। दूसरे कॉलम में, यह तीन लाइनें हैं। फिर एक (तीसरा स्तंभ), फिर शून्य (अंतिम कॉलम)। वह वह जगह है 16 / n - 1
जहां n
कॉलम में अक्षरों की संख्या है (जो N
ऊपर दिए गए कोड में है)। कोड (1) पर कोड क्या करता है
:
*]*\ +2sllNt/16lN
sllN # Computes the num of bits required to represent len(N) in binary
+2 # To that, add two. We now have the length of a element of the current column
*\ # Make a string of spaces of that length (note the trailing space)
t/16lN # Computes 16 / len(N) - 1
*] # Make a list of that length with the string of spaces (something like [" ", " ", ...])
ठीक है, अब हमारे पास एक अच्छा सहायक फ़ंक्शन है h
जो मूल रूप से वर्णों के अनुक्रम से तालिका के स्तंभ को उत्पन्न करता है। चलो इसका उपयोग करते हैं (नीचे दिए गए कोड में दो अनुगामी रिक्त स्थान पर ध्यान दें):
jmj*3\ d.t[h"ET"h"IANM"h"SURWDKGO"h"HVF L PJBXCYZQ
h"ET" # Generate the first column
h"IANM" # Generate the second column
h"SURWDKGO" # Generate the third column
h"HVF L PJBXCYZQ # Generate the last column (note the two trailing spaces)
[ # Make a list out of those columns
.t # Transpose, because we can print line by line, but not column by column
mj*3\ d # For each line, join the elements in that line on " " (that is, concatenate the elements of the lines but insert " " between each one)
j # Join all lines on newline
कोड अभी भी छोटा किया जा सकता है; हो सकता है कि मैं बाद में उस पर वापस आ जाऊं।