Pyth , 106 octets
DhNR.n.e+]++.[\.sllN::.Bk\0\.\1\-\ b*]*\ +2sllNt/16lNNjmj*3\ d.t[h"ET"h"IANM"h"SURWDKGO"h"HVF L PJBXCYZQ
Testez-le en ligne!
Explication
En quelques mots, ce que je fais ici, c'est de générer le tableau colonne par colonne puis de transposer le tableau avant de l'imprimer. On remarque que dans une colonne, les codes morse des lettres peuvent être représentés comme des chaînes binaires (à remplacer .
par 0
et -
par 1
) lors du comptage de zéro à l'index de la dernière lettre de la colonne.
L'algorithme repose sur une fonction à partir de laquelle je donne un exemple exécuté ci-dessous (pour la deuxième colonne):
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!
Explication du code
J'ai coupé le code en deux. La première partie est la fonction décrite ci-dessus, la deuxième partie est la façon dont j'utilise la fonction:
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) : Dans le tableau morse, dans la première colonne, il y a sept lignes après chaque ligne contenant une lettre ("E" et "T"). Dans la deuxième colonne, c'est trois lignes. Puis un (troisième colonne), puis zéro (dernière colonne). C'est 16 / n - 1
où n
est le nombre de lettres dans la colonne (qui est N
dans le code ci-dessus). C'est quoi le code à la ligne
(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 [" ", " ", ...])
D'accord, nous avons maintenant une fonction utile h
qui génère essentiellement une colonne de tableau à partir d'une séquence de caractères. Utilisons-le (notez les deux espaces de fin dans le code ci-dessous):
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
Le code peut encore être raccourci; peut-être que j'y reviendrai plus tard.