Bir metin küpü ݀


17

En son ne zaman bir metin karesi oluşturdunuz , ama şimdi bir küp metin yapabilir misiniz ?

Meydan okuma

Bir dize verildiğinde, dizeyi bir küp biçiminde çıktılar.

Dizenin her zaman 2 karakter veya daha fazla olacağını ve yalnızca yazdırılabilir ascii karakterleri olacağını varsayabilirsiniz.

Metin Küpü Nasıl Yapılır

korkunç mspaint becerileri.png

Test Durumları

Input:
Test

Output:
   Test
  e  ss
 s  e e
tseT  T
s  e e
e  ss
Test

Input:
Hello, world!

Output:
            Hello, world!
           e           dd
          l           l l
         l           r  r
        o           o   o
       ,           w    w

     w           ,      ,
    o           o       o
   r           l        l
  l           l         l
 d           e          e
!dlrow ,olleH           H
d           e          e
l           l         l
r           l        l
o           o       o
w           ,      ,

,           w    w
o           o   o
l           r  r
l           l l
e           dd
Hello, world!

Input:
Hi

Output:
 Hi
iHH
Hi

Python'da Referans Uygulaması

text = raw_input("Enter a string: ")

print " " * (len(text) - 1) + text

spaces = len(text) - 2
_spaces = spaces

for i in range(1, len(text) - 2 + 1):
    print " " * spaces + text[i] + " " * _spaces + text[(i + 1) * -1] + " " * (_spaces - spaces) + text[(i + 1) * -1]
    spaces -= 1

print text[::-1] + " " * _spaces + text[0]

spaces = _spaces - 1

for i in range(1, len(text) - 2 + 1):
    print text[(i + 1) * -1] + " " * _spaces + text[i] + " " * spaces + text[i]
    spaces -= 1

print text

kurallar

  • Bu , bayt en kısa cevap kazanır! Tiebreaker en çok oy kullanıldı.
  • Standart boşluklara izin verilmez.
  • Sondaki satırsonu ve sondaki alanlara izin verilir.

Sondaki boşluklara izin veriliyor mu?
— Neil

@Neil Evet. (15 karakter)
— acrolith

Sadece merak ediyorum, meydan okuma başlığındaki ek karakterler neler?
— AdmBorkBork

@TimmyD "Bir metin küpü" 14 karakter uzunluğunda, başlık en az 15 karakter uzunluğunda olmalı, bu yüzden küçük bir nokta ekledim. Bence bu.
— akrolit

Ah tamam. Bilgisayarımda IE'de çok daha büyük bir daire olarak ortaya çıkıyor , dolayısıyla sorum.
— AdmBorkBork

Yanıtlar:


2

Pyth, 78 bayt

AtBtlQJ_SH
+*dGQVJs[*Nd@Q-GN*dHK@QN*d-HNK;
++_Q*dHhQVJs[@QN*dH@Q-GN*dtN@Q-GN;

Sondaki satırsonu ile. Joshua de Haan'ın Python 3 yanıtından esinlenmiştir.

Burada çevrimiçi deneyin!


4

Piton 2, 228 223 221 203 199 195 189

t=input()
x=" "
l=len(t)-1
q=l-1
f=range(q,0,-1)
print x*l+t
for i in f:print x*i+t[l-i]+x*q+t[i]+x*(q-i)+t[i]
print t[::-1]+x*q+t[0]
for i in f:print t[i]+x*q+t[l-i]+x*(i-1)+t[l-i]
print t

Piton 3, 192 188 182

t=input()
x=" "
l=len(t)-1
q=l-1
p=print
f=range(q,0,-1)
p(x*l+t)
for i in f:p(x*i+t[l-i]+x*q+t[i]+x*(q-i)+t[i])
p(t[::-1]+x*q+t[0])
for i in f:p(t[i]+x*q+t[l-i]+x*(i-1)+t[l-i])
p(t)

Bu 203 bayt. Ayrıca, değiştirerek 4 bayt kaydedebilirsiniz raw_input()ile input().
— acrolith

Doğru, teşekkürler!
— Joshua de Haan

x*(q)? Parensleri çıkarabilmelisin, değil mi?
— Değer Mürekkep

Haklısın, aptal beni;) Şimdi düzeltmek haha
— Joshua de Haan

x*(i-1)->x*~-i
— mbomb007

3

x86 (IA-32) makine kodu, 126 bayt

HexDump:

60 8b f9 57 33 c0 f2 ae 5e 2b fe 4f 87 fa 8d 1c
12 8b c3 48 f6 e3 c6 04 07 00 48 c6 04 07 20 75
f9 8b ea 4d 53 8d 04 2a 50 53 8b c5 f6 e3 8d 44
68 01 50 53 2b c2 8b c8 50 4b 53 55 53 03 c5 50
f7 d3 53 50 53 95 f6 e2 6b c0 04 50 43 53 51 6a
01 4a 52 6a 01 50 6a ff 51 b0 0a 6a 0b 8b dc 59
8b 6c cb fc 88 04 2f 03 2c cb 89 6c cb fc 83 f9
0a 75 01 ac e2 ea 4a 79 e0 83 c4 58 61 c3

Bu biraz uzun, bu yüzden açıklamak için önce C kodu vereceğim:

void doit(const char* s, char out[])
{
    int n = strlen(s);
    int w = 2 * n;
    int h = w - 1;
    int m = n - 1;

    memset(out, ' ', h * w);
    out[h * w] = 0;

    int offset1 = n + m;
    int offset2 = w * m + 2 * m + 1; // 2 * n * n - 1
    int offset3 = offset2 - n; // 2 * n * n - n - 1
    int offset4 = 4 * n * m; // 4 * n * n - 4 * n

    int offsets[] = {
        offset3, -1,
        offset4, 1,
        m, 1,
        offset3, 1 - w,
        offset4, -w,
        offset2 - 1, -w,
        offset2 - 1, w - 1,
        m, w - 1,
        offset3, w,
        offset2, w,
        offset1, w,
    };

    do
    {
        char c = *s++;
        for (int i = 0; i < 11; ++i)
        {
            if (i == 9)
                c = '\n';
            int offset = offsets[i * 2];
            assert(offset > 0 && offset < w * h);
            out[offset] = c;
            offsets[i * 2] += offsets[i * 2 + 1];
        }
    } while (--n);
}

Buraya n giriş dizesinin uzunluğu.

Çıktı alanının boyutları 2n(genişlik) x 2n-1(yükseklik) şeklindedir. İlk olarak, her şeyi boşluklarla doldurur (ve sonlandırıcı bir boş bayt ekler). Ardından, çıktı alanındaki 11 düz çizgi boyunca ilerler ve bunları metinle doldurur:

  • 2 satır, satır sonu baytlarıyla doldurulur (= 10)
  • 9 satır giriş dizesinin ardışık baytları ile doldurulur

Her çizgi bir başlangıç ​​ofseti ve bir adım olan iki sayı ile temsil edilir. Ben offsetserişim "kolay" yapmak için , dizi içine ikisini de doldurulmuş .

İlginç kısım diziyi doldurmak. Dizideki girişlerin sırası için çok az önem vardır; Kayıt çakışmaları sayısını en aza indirgemek için onları yeniden düzenlemeye çalıştım. Ayrıca, ikinci dereceden formüllerin hesaplama yolunu seçme özgürlüğü vardır; Çıkarma sayısını en aza indirmeye çalıştım (çünkü eklemeler esnekLEA talimatla uygulanabilir).

Montaj kaynağı:

    pushad;

    ; // Calculate the length of the input string
    mov edi, ecx;
    push edi;
    xor eax, eax;
    repne scasb;
    pop esi; // esi = input string
    sub edi, esi;
    dec edi;

    ; // Calculate the size of the output area
    xchg edi, edx;  // edx = n
                    // edi = output string
    lea ebx, [edx + edx]; // ebx = w
    mov eax, ebx;
    dec eax; // eax = h
    mul bl; // eax = w * h

    ; // Fill the output string with spaces and zero terminate it
    mov byte ptr [edi + eax], 0;
myfill:
    dec eax;
    mov byte ptr [edi + eax], ' ';
    jnz myfill;

    mov ebp, edx;
    dec ebp; // ebp = m

    ; // Fill the array of offsets
    push ebx; // w
    lea eax, [edx + ebp];
    push eax; // offset1
    push ebx; // w
    mov eax, ebp;
    mul bl;
    lea eax, [eax + 2 * ebp + 1];
    push eax; // offset2
    push ebx; // w
    sub eax, edx;
    mov ecx, eax; // ecx = offset3
    push eax; // offset3
    dec ebx;
    push ebx; // w - 1
    push ebp; // m
    push ebx; // w - 1
    add eax, ebp;
    push eax; // offset2 - 1
    not ebx;
    push ebx; // -w
    push eax; // offset2 - 1
    push ebx; // -w
    xchg eax, ebp; // eax = m
    mul dl;
    imul eax, eax, 4;
    push eax; // offset4
    inc ebx;
    push ebx; // 1 - w
    push ecx; // offset3
    push 1;
    dec edx; // edx = n - 1
    push edx;
    push 1;
    push eax;
    push -1;
    push ecx;

    ; // Use the array of offsets to write stuff to output
myout:
    mov al, '\n';
    push 11;
    mov ebx, esp;
    pop ecx;
myloop:
    mov ebp, [ebx + ecx * 8 - 4];
    mov [edi + ebp], al;
    add ebp, [ebx + ecx * 8];
    mov [ebx + ecx * 8 - 4], ebp;
    cmp ecx, 10;
    jne skip_read;
    lodsb;
skip_read:
    loop myloop;
    dec edx;
    jns myout;

    add esp, 11 * 8;

    popad;
    ret;

Burada bayt çarpmalarını kullandım, giriş dizesinin uzunluğunu 127 ile sınırladım. Bu, kaydın hızlanmasını önler edx- ürünax yerine.

Küçük bir aksaklık: diziyi doldururken, dizenin uzunluğu 1 azalır. Bu yüzden döngü çıkış koşulunu ayarladım:

    jns myout

-1'e kadar geri sayar.


3

Yakut, 148 bayt

nBayraktan +1 bayt . Okunabilirlik için noktalı virgül yerine yeni satırları gösterir (aynı işlev).

S=" "
X=S*s=$_.size-2
puts X+S+I=$_,(r=1..s).map{|i|c=I[~i];S*(s-i+1)+I[i]+X+c+S*~-i+c},I.reverse+X+I[0],r.map{|i|c=I[i];I[~i]+X+c+S*(s-i)+c},I

Öyle koş. Girdi, son satırsonu olmayan bir STDIN satırıdır, bu nedenle dosyadan borulanması gerekir.

ruby -ne 'S=" ";X=S*s=$_.size-2;puts X+S+I=$_,(r=1..s).map{|i|c=I[~i];S*(s-i+1)+I[i]+X+c+S*~-i+c},I.reverse+X+I[0],r.map{|i|c=I[i];I[~i]+X+c+S*(s-i)+c},I'

1

Javascript, 225 198 bayt

@Neil sayesinde 27 bayt kaydedildi

f=(s,l=s.length-2,d=' ',r='repeat',t=d[r](l))=>[d+t+s,...a=[...Array(l)].map((_,i)=>d[r](l-i)+s[i+1]+t+(p=s[l-i])+d[r](i)+p),[...s].reverse().join``+t+s[0],...a.map(v=>v.trim()).reverse(),s].join`
`
  • [...] yerine .concat
  • [...] + yerine haritasına için döngü
  • İşlev parametreleri olarak değişkenleri hareket ettirerek yalnızca bir ifade
  • l ve t için daha iyi başlatma

Orijinal cevap:

f=s=>{l=s.length,d=' ',r='repeat',a=[],t=d[r](l-2)+s;for(i=1;i++<l-1;)a.push(d[r](l-i)+s[i-1]+d[r](l-2)+(p=s[l-i])+d[r](i-2)+p);console.log(d+[t].concat(a,[...t].reverse().join``+s[0],a.map(v=>v.trim()).reverse(),s).join`
`)}

1
Golfçü olmasına rağmen güzel: (s,l=s.length-2,d=' ',r='repeat',t=d[r](l))=>[d+t+s,...a=[...Array(l)].map((_,i)=>d[r](l-i)+s[i+1]+t+(p=s[l-i])+d[r](i)+p),[...s].reverse().join``+t+s[0],...a.map(v=>v.trim()).reverse(),s].join`\n`( \naçıklamalarda satırsonu koyamayacağınız için kullanarak ).
— Neil

0

Java 7, 283 bayt

void a(String s){int h=s.length(),n=h*2-1,t=n-h,u=n-1;char[][]c=new char[n][n];for(int i=0;i<h;i++){c[0][t+i]=c[i][t-i]=c[t][t-i]=c[t+i][t]=c[t+i][u-i]=c[t-i][t+i]=c[t-i][u]=c[u][i]=c[u-i][0]=s.charAt(i);}for(int y=0;y<n;y++){System.out.println(new String(c[y]).replace('\0',' '));}}

Burada deneyin!

Ungolfed:

void a(String s) {
    int length=s.length(),
        n=length*2-1,
        mid=n-length,
        doubleMid=n-1;
    char[][]c=new char[n][n];
    for(int i=0;i<length;i++) {
        c[0][mid+i]= 
        c[i][mid-i]=
        c[mid][mid-i]=
        c[mid+i][mid]=
        c[mid+i][doubleMid-i]=
        c[mid-i][mid+i]=
        c[mid-i][doubleMid]=
        c[doubleMid][i]=
        c[doubleMid-i][0]=s.charAt(i);
    }
    for(int y=0;y<n;y++){
        System.out.println(new String(c[y]).replace('\0',' '));
    }
}
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.