Pyth , 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) : У таблиці морзеса в першому стовпці є сім рядків після кожного рядка, що містить літеру ("Е" і "Т"). У другому стовпці це три рядки. Потім один (третій стовпчик), потім нуль (останній стовпець). Ось 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
Код ще можна скоротити; можливо, я повернуся до цього пізніше.