Texto reverso de Boustrophedon

19

Boustrophedon é um tipo de texto bidirecional em que linhas sucessivas alternam entre a leitura da esquerda para a direita e da direita para a esquerda. A direção dos caracteres também foi refletida em relação à direção da leitura. Nos sistemas de escrita boustrophedon reversa, os caracteres foram girados 180 em vez de espelhados.

Desafio

Escreva um programa / função que aceite uma sequência de texto e um número de colunas e produza a sequência formatada no número especificado de colunas com linhas alternadas viradas de cabeça para baixo.

Entrada

Seu programa deve aceitar dois argumentos:

  • S, a sequência de texto a ser formatada
  • N, o número de colunas

Resultado

Seu programa deve gerar S envolto em N colunas com linhas alternadas invertidas 180 graus.

  • A direção de leitura da primeira linha é sempre da esquerda para a direita.
  • Não se preocupe sobre onde colocar quebras de linha, as linhas podem ser divididas em qualquer caractere, sem necessidade de hifenização de palavras.
  • Você pode assumir que a string de entrada não conterá nenhuma quebra de linha.

Aqui estão os caracteres que seu programa deve suportar com suas contrapartes invertidas:

Uppercase:
ABCDEFGHIJKLMNOPQRSTUVWXYZ
∀qƆpƎℲפHIſʞ˥WNOԀQɹS┴∩ΛMX⅄Z

Lowercase:
abcdefghijklmnopqrstuvwxyz
ɐqɔpǝɟƃɥᴉɾʞlɯuodbɹsʇnʌʍxʎz

Punctuation:
&_?!"'.,
⅋‾¿¡„,˙'

Casos de teste

S: The quick brown fox jumps over the lazy dog.
N: 30
Output:
The quick brown fox jumps over
                ˙ƃop ʎzɐl ǝɥʇ 

S: Lorem ipsum dolor sit amet, consectetur adipiscing elit. Quisque vel libero arcu. Nunc dictum elementum lectus nec aliquet. Donec dolor nunc, sodales at dolor rhoncus, hendrerit scelerisque purus. Pellentesque vel sagittis libero, et rutrum leo. Nullam vulputate enim et massa dictum, vitae venenatis augue lobortis. Fusce sollicitudin ultrices consequat. Vestibulum quis nunc non tortor eleifend facilisis. In at nunc elit. Aliquam pellentesque, lectus quis aliquam posuere, quam lectus sagittis metus, ut auctor sem quam a neque. Integer rhoncus lobortis nisl. Pellentesque mi dui, laoreet in metus quis, mollis accumsan est. Nunc dignissim tortor ac eleifend tempus. Ut ut tellus aliquam, luctus nulla quis, consectetur nunc. Suspendisse viverra molestie condimentum. Curabitur et hendrerit augue.
N: 50
Output:
Lorem ipsum dolor sit amet, consectetur adipiscing
uǝɯǝlǝ ɯnʇɔᴉp ɔunN ˙nɔɹɐ oɹǝqᴉl lǝʌ ǝnbsᴉnQ ˙ʇᴉlǝ 
tum lectus nec aliquet. Donec dolor nunc, sodales 
lǝԀ ˙snɹnd ǝnbsᴉɹǝlǝɔs ʇᴉɹǝɹpuǝɥ 'snɔuoɥɹ ɹolop ʇɐ
lentesque vel sagittis libero, et rutrum leo. Null
sᴉʇɐuǝuǝʌ ǝɐʇᴉʌ 'ɯnʇɔᴉp ɐssɐɯ ʇǝ ɯᴉuǝ ǝʇɐʇndlnʌ ɯɐ
 augue lobortis. Fusce sollicitudin ultrices conse
ɔɐɟ puǝɟᴉǝlǝ ɹoʇɹoʇ uou ɔunu sᴉnb ɯnlnqᴉʇsǝΛ ˙ʇɐnb
ilisis. In at nunc elit. Aliquam pellentesque, lec
ʇǝɯ sᴉʇʇᴉƃɐs snʇɔǝl ɯɐnb 'ǝɹǝnsod ɯɐnbᴉlɐ sᴉnb snʇ
us, ut auctor sem quam a neque. Integer rhoncus lo
snʇǝɯ uᴉ ʇǝǝɹoɐl 'ᴉnp ᴉɯ ǝnbsǝʇuǝllǝԀ ˙lsᴉu sᴉʇɹoq
 quis, mollis accumsan est. Nunc dignissim tortor 
u snʇɔnl 'ɯɐnbᴉlɐ snllǝʇ ʇn ʇ∩ ˙sndɯǝʇ puǝɟᴉǝlǝ ɔɐ
ulla quis, consectetur nunc. Suspendisse viverra m
˙ǝnƃnɐ ʇᴉɹǝɹpuǝɥ ʇǝ ɹnʇᴉqɐɹnƆ ˙ɯnʇuǝɯᴉpuoɔ ǝᴉʇsǝlo
Dendrobium
fonte

Respostas:

5

Utilitários Bash + GNU, 204

fold -$1|sed 2~2{s/.\\+/printf\ %$1's "`echo "&"|rev`"/e
y/'`printf %s {A..Z} {a..z}`"&_?!\"'.,/∀qƆpƎℲפHIſʞ˥WNOԀQɹS┴∩ΛMX⅄Zɐqɔpǝɟƃɥᴉɾʞlɯuodbɹsʇnʌʍxʎz⅋‾¿¡„,˙'/
}"

N é dado na linha de comando e S é dado via STDIN:

$ echo "The quick brown fox jumps over the lazy dog." | ./boustrophedon.sh 30
The quick brown fox jumps over
                ˙ƃop ʎzɐl ǝɥʇ 
$ 

Explicação

  • fold -N divide a entrada em linhas de comprimento N.
  • O restante do processamento é feito por sed, linha por linha:
    • 2~2 corresponde a todas as outras linhas, começando na linha 2
    • s/.+/printf %'N's "`echo "&"|rev`"/e usa o recurso exec do GNU Sed para chamar um shell para reverter a linha e pressionar com até N espaços
    • y/ABC.../∀qƆ.../ transformar caracteres

A nota ABC...é gerada usando uma expansão bash e printf. Também algumas citações chiques para todos os diferentes personagens.

Trauma Digital
fonte
Obrigado @isaacg - Pensei ter tentado backticks duplos, mas acho que perdi isso.
Digital Trauma
3

Japt , 182 179 bytes

Japt é uma versão abreviada do Ja vaScri pt . Intérprete

Ur'.+".?"pV-1 ,@A++%2?SpV-Xl)+Xw m@"„\xA1⅋,'˙¿∀qƆpƎℲפHIſʞ˥WNOԀQɹS┴∩ΛMX⅄Z[\\]^‾`ɐqɔpǝɟƃɥᴉɾʞlɯuodbɹsʇnʌʍxʎz"g(Q+"!&',.?"+65o124 m@Xd)a)bX)||X +R:X+R

Como funciona

             // Implicit: U = input string, V = input number, A = 10
Ur           // Take U and replace each group X of:
'.+".?"pV-1  //  at least one char, followed by up to V-1 other chars
             //   literally: RegExp("." + ".?".repeat(V-1))
@            // with: (@ is compiled to (X,Y,Z)=>)
A++%2?       //  If we're on an odd row:
SpV-Xl)+     //   Pad it with spaces, then concatenate it with
Xw m@        //   X reversed, with each character X mapped to:
"..."g       //   The character at position N in the string, where N is:
(Q+"!&',.?"  //    Build a string from a quote mark and these chars,
65o124 m@Xd)a) //   and all chars from A..z.
bX)          //    Return the index of X in this string.
||X          //   or if this number is outside the string, default to the original char.
+R           //   Either way, add a newline.
:X+R         //  Otherwise, return the original row text plus a newline.
             // Implicit: output last expression

Existem alguns problemas, mas eles não devem afetar a validade do programa:

  1. O usuário @ Vɪʜᴀɴ recentemente me ajudou a implementar atalhos Unicode, ou caracteres únicos no intervalo 00A1-00FF, que representam as seqüências de vários caracteres comumente usadas. O problema é que atualmente ele substitui as cadeias internas, portanto não podemos usar ¡diretamente na cadeia no momento. A alternativa segura,, \xA1é três bytes mais longa.
  2. Atualmente, é impossível inserir um caractere de aspas duplas. Isso será corrigido em breve.

Talvez haja uma maneira de encurtar a corda. Sugestões são bem-vindas!

ETHproductions
fonte
Agradável! Eu queria tentar converter minha solução para o Japt mais tarde, mas isso leva o bolo.
Scott
2

CJam, 152

l~_q/\f{Se]}2/{)26,'Af+_el+"&_?!'.,"`+"∀qƆpƎℲפHIſʞ˥WNOԀQɹS┴∩ΛMX⅄Zɐqɔpǝɟƃɥᴉɾʞlɯuodbɹsʇnʌʍxʎz„⅋‾¿¡,˙'"erW%}%N*

Teste aqui.

Eu acho que eu deveria procurar um pouco para compactar essa string Unicode ...

Martin Ender
fonte
A compactação dessa string Unicode é difícil - os pontos de código estão por toda parte. Como um experimento, tentei 'zopfli'ing toda a minha entrada (incluindo bits sed) e acabei maior. Eu estarei observando com interesse para ver como você lidar com ele :)
Digital Trauma
2

Javascript (ES6), 407 400 366 360 353 bytes

Estou contando apenas as duas primeiras "linhas" neste trecho como a contagem total, pois o restante é código para executá-lo.

s=`ABCDEFGHIJKLMNOPQRSTUVWXYZqƆpƎℲפHIſʞ˥WNOԀQɹS┴∩ΛMXZabcdefghijklmnopqrstuvwxyzɐqɔpǝɟƃɥᴉɾʞlɯuodbɹsʇnʌʍxʎz&_?!"'.,⅋‾¿¡„,˙'`,f=(i,w)=>(i=i.match(RegExp(`.{1,${w}}`,"g")),i.map((c,x)=>x%2?" ".repeat(w-c.length)+[...c].reverse().map(b=>(d=s.indexOf(b),"A"<=b&&"z">=b?s[d+26]:" "==b?b:s[d+8])).join``:c).join`
`)

let input = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Quisque vel libero arcu. Nunc dictum elementum lectus nec aliquet. Donec dolor nunc, sodales at dolor rhoncus, hendrerit scelerisque purus. Pellentesque vel sagittis libero, et rutrum leo. Nullam vulputate enim et massa dictum, vitae venenatis augue lobortis. Fusce sollicitudin ultrices consequat. Vestibulum quis nunc non tortor eleifend facilisis. In at nunc elit. Aliquam pellentesque, lectus quis aliquam posuere, quam lectus sagittis metus, ut auctor sem quam a neque. Integer rhoncus lobortis nisl. Pellentesque mi dui, laoreet in metus quis, mollis accumsan est. Nunc dignissim tortor ac eleifend tempus. Ut ut tellus aliquam, luctus nulla quis, consectetur nunc. Suspendisse viverra molestie condimentum. Curabitur et hendrerit augue.";
console.log(f(input, 50));

Explicação

s=`A∀ .. ZZaɐ .. &⅋ ..`,                            //Character translation "map"
f=(i,w)=>                                           //Create a function named "f" that takes an (i)nput string and (w)idth
    (                                               //Implicitly return
        i=i.match(RegExp(`.{1,${w}}`,"g")),         //Cut string into arrays every w-th match of anything
        i.map((c,x)=>                               //Loop through each element in array by (c)ut at inde(x)
            x%2                                     //If the index is odd
                ?" ".repeat(w-c.length)                 //Output spaces for padding
                    +[...c].reverse()                   //Split this cut into each character, and read it backwards
                    .map((b,d)=>(                       //Translate each character
                        d=s.indexOf(b),                 //Save where this character appears in the mapping
                        "A"<=b&&"z">=b                  //If the character is a-zA-Z
                        ?s[d+26]                            //Print the flipped character by looking 26 characters ahead of where this character is found
                        :" "==b                             //Else, if it's a space
                            ?b                              //Output the space
                            :s[d+8]))                   //Else, print the flipped punctuation character (only 8 of these)
                    .join``                         //Join everything back into a continuous string
                :c                                  //Else just output the whole cut
            ).join`                                 
`)                                                  //Finally join each cut by a newline

  • Graças ao Dendrobium por -6 bytes!
  • Graças ao Closure Compiler por -34 bytes!
  • Obrigado a ɯ nɟuɐɯɹɐ ן oɯ por -7 bytes!
Scott
fonte
11
Você pode reduzir todos os seus .split("")e .join("")para .split``e reduzir .join``alguns bytes. Também .join("\n")pode ser reescrito como acima com uma nova linha literal em vez de \n.
Dendrobium
Ótimas dicas, muito obrigado!
Scott
11
Você pode retirar a nova palavra-chave para a regex. Também use exec em vez de match. Ah, sim, use [... c] em vez de c.split``.
Mama Fun Roll
@ ן nɟuɐɯɹɐ ן oɯ Bom, obrigado! Eu não conseguia descobrir como usá exec-lo e mantê-lo curto, pois execprecisa ser repetido para obter todas as correspondências.
Scott
Oh, deixa pra lá cerca de exec ...
Mama Fun rolo
1

Pitão, 141 bytes

FNrZlKczQI%N2X.[" "Q_@KN++GrG1"&_?!\"'.,""ɐqɔpǝɟƃɥᴉɾʞlɯuodbɹsʇnʌʍxʎz∀qƆpƎℲפHIſʞ˥WNOԀQɹS┴∩ΛMX⅄Z⅋‾¿¡„,˙'")E@KN

Testado com um Pyth Compiler online.

Como funciona

FNrZlKczQI%N2X.[" "Q_@KN)E@KN    █
                                 █
FN                               █ For N in 
  r                              █  ├ Range
   Z                             █  |  ・Start: 0 
                                 █  |  ・End: 
    l                            █  |     Length of
     K                           █  |      └─K = 
      c                          █  |         Split
       z                         █  |           ・String z
        Q                        █  |           ・By input int Q
         I%N2                    █  └─If divisible by 2
             X                   █     └─Translate
                                 █         ├─Source:
              .[                 █         | ├─Pad left
                " "              █         | |   ・With spaces
                   Q             █         | |   ・Until input int Q
                    _            █         | └──Reverse
                     @KN         █         |     ・Nth line of K
                        ++GrG1...█         ├─From: Normal  (See below)
                        "ɐqɔpǝ...█         └─To:   Flipped (See below)
                        )E@KN    █     Else print Nth line of K

Mapa

Normal

++                               █ Append:
  G                              █  1) a to z
   rG1                           █  2) A to Z
      "&_?!\"'.,"                █  3) Punctuation

Invertida (nada extravagante)

"ɐqɔpǝɟƃɥᴉɾʞlɯuodbɹsʇnʌʍxʎz∀qƆpƎℲפHIſʞ˥WNOԀQɹS┴∩ΛMX⅄Z⅋‾¿¡„,˙'"
Helix Quar
fonte
Isso tem 108 caracteres ; no entanto, a maneira padrão de medir o comprimento dos programas de código-golfe é em bytes . De acordo com esta página , o comprimento desta resposta é 141 bytes .
ETHproductions
@ETHproductions Obrigado. Changed.
Helix Quar
0

Python, 453 363 bytes

s,n=input()
o="""ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz&_?!"'.,"""
p="""∀qƆpƎℲפHIſʞ˥WNOԀQɹS┴∩ΛMX⅄Zɐqɔpǝɟƃɥᴉɾʞlɯuodbɹsʇnʌʍxʎz⅋‾¿¡„,˙'""".decode('utf8')
s=map(''.join,zip(*[iter(s+' '*(n-1))]*n))
for i in range(len(s)):
 if i%2:s[i]=''.join(p[o.find(c)].encode('utf8')for c in s[i][::-1])
for l in s:print l
TFeld
fonte