Membalikkan Teks Boustrophedon

19

Boustrophedon adalah jenis teks dua arah dimana baris-baris berikutnya bergantian antara membaca dari kiri ke kanan dan kanan ke kiri. Arah karakter juga dicerminkan sehubungan dengan arah membaca. Dalam sistem penulisan boustrophedon terbalik, karakter diputar 180 bukannya cermin.

Tantangan

Tulis program / fungsi yang menerima string teks dan sejumlah kolom, dan output string diformat ke dalam jumlah kolom yang ditentukan dengan garis bergantian terbalik.

Memasukkan

Program Anda harus menerima dua argumen:

  • S, string teks ke format
  • N, jumlah kolom

Keluaran

Program Anda harus menampilkan S terbungkus kolom N dengan garis bolak balik 180 derajat.

  • Arah bacaan dari baris pertama selalu dari kiri ke kanan.
  • Jangan khawatir tentang di mana harus menempatkan jeda baris, garis dapat dibagi pada karakter apa pun, tidak perlu kata-kata dihipnotis.
  • Anda dapat menganggap string input tidak akan berisi jeda baris apa pun.

Berikut adalah karakter yang harus didukung oleh program Anda dengan rekan-rekannya yang terbalik:

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

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

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

Uji Kasus

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
sumber

Jawaban:

5

Utilitas 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 diberikan pada baris perintah dan S diberikan melalui STDIN:

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

Penjelasan

  • fold -N membagi input menjadi garis panjang N.
  • Sisa pemrosesan dilakukan dengan sed, baris demi baris:
    • 2~2 cocok dengan setiap baris lainnya, mulai dari baris 2
    • s/.+/printf %'N's "`echo "&"|rev`"/e menggunakan fitur exec GNU Sed untuk memanggil shell untuk membalikkan baris dan meninggalkan-pad dengan hingga N spasi
    • y/ABC.../∀qƆ.../ mengubah karakter

Note ABC...dihasilkan menggunakan ekspansi bash dan printf. Juga beberapa kutipan mewah untuk semua karakter yang berbeda.

Trauma Digital
sumber
Terima kasih @isaacg - Saya pikir saya mencoba backticks ganda, tapi saya rasa saya melewatkan itu.
Digital Trauma
3

Japt , 182 179 byte

Japt adalah versi singkat dari Ja vaScri pt . Penerjemah

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

Bagaimana itu bekerja

             // 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

Ada beberapa masalah, tetapi mereka seharusnya tidak memengaruhi validitas program:

  1. Pengguna @ Vɪʜᴀɴ baru-baru ini membantu saya menerapkan Unicode Shortcuts, atau karakter tunggal dalam kisaran 00A1-00FF yang mendukung urutan beberapa karakter yang umum digunakan. Masalah dengan ini adalah bahwa saat ini menggantikan string di dalam, jadi kami tidak dapat menggunakan ¡langsung dalam string untuk saat ini. Alternatif aman \xA1,, adalah tiga byte lebih lama.
  2. Saat ini tidak mungkin untuk memasukkan karakter kutipan ganda. Ini akan segera diperbaiki.

Mungkin ada cara untuk mempersingkat string. Saran dipersilahkan!

Produksi ETH
sumber
Bagus! Saya ingin mencoba mengubah solusi saya ke Japt nanti, tetapi ini membutuhkan kuenya.
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*

Uji di sini.

Saya kira saya harus melihat ke dalam mengompresi string Unicode itu sedikit ...

Martin Ender
sumber
Mengompresi string Unicode itu sulit - titik kode ada di semua tempat. Sebagai percobaan, saya mencoba 'zopfli'ing seluruh entri saya (termasuk bit sed) dan akhirnya lebih besar. Saya akan menonton dengan penuh minat untuk melihat bagaimana Anda mengatasinya :)
Digital Trauma
2

Javascript (ES6), 407 400 366 360 353 byte

Saya hanya menghitung dua "baris" pertama dalam cuplikan ini sebagai jumlah total, karena sisanya adalah kode untuk menjalankannya.

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));

Penjelasan

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

  • Berkat Dendrobium untuk -6 byte!
  • Terima kasih kepada Closure Compiler untuk -34 bytes!
  • Terima kasih ן nɟuɐɯɹɐ ן oɯ untuk -7 byte!
Scott
sumber
1
Anda dapat mengurangi semua .split("")dan .join("")untuk .split``dan .join``mencukur beberapa byte. The .join("\n")juga dapat ditulis ulang seperti di atas dengan baris baru literal bukan \n.
Dendrobium
Kiat-kiat hebat, terima kasih banyak!
Scott
1
Anda dapat mengambil kata kunci baru untuk regex. Juga gunakan exec bukan pertandingan. Oh ya, gunakan [... c] bukan c.split``.
Mama Fun Roll
@ ן nɟuɐɯɹɐ ן oɯ Bagus, terima kasih! Saya tidak tahu bagaimana cara menggunakannya execdan tetap pendek, karena execperlu diulang untuk mendapatkan semua pertandingan.
Scott
Oh, tidak apa-apa tentang eksekutif ...
Mama Fun Roll
1

Pyth, 141 byte

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

Diuji dengan Pyth Compiler online.

Bagaimana itu bekerja

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

Peta

Normal

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

Membalik (Tidak ada yang mewah)

"ɐqɔpǝɟƃɥᴉɾʞlɯuodbɹsʇnʌʍxʎz∀qƆpƎℲפHIſʞ˥WNOԀQɹS┴∩ΛMX⅄Z⅋‾¿¡„,˙'"
Helix Quar
sumber
Ini adalah 108 karakter ; Namun, cara standar untuk mengukur panjang program kode-golf adalah dalam byte . Menurut halaman ini , panjang jawaban ini adalah 141 byte .
ETHproduk
@ ETHproduk Terima kasih. Berubah
Helix Quar
0

Python, 453 363 byte

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
sumber