आपको ASCII तोरणों का निर्माण करना चाहिए!

24

क्रॉस मेरे anagolf पोस्ट से पोस्ट किया गया है (नोट: स्पॉइलर हो सकता है, पोस्टमार्टम हो सकता है)।

निम्नलिखित टेक्स्ट को बिल्कुल आउटपुट करें।

  • आपके पास प्रत्येक पंक्ति पर अतिरिक्त अनुगामी व्हाट्सएप हो सकता है, और साथ ही नई सूचियाँ अनुगामी हो सकती हैं।
  • सबसे छोटा कोड, बाइट्स में, जीतता है।
                                                
                                              !"!
                                             "#$#"
                                            #$%&%$#
                                           $%&'('&%$
                                          %&'()*)('&%
                                         &'()*+,+*)('&
                                        '()*+,-.-,+*)('
                                       ()*+,-./0/.-,+*)(
                                      )*+,-./01210/.-,+*)
                                     *+,-./012343210/.-,+*
                                    +,-./0123456543210/.-,+
                                   ,-./01234567876543210/.-,
                                  -./0123456789:9876543210/.-
                                 ./0123456789:;<;:9876543210/.
                                /0123456789:;<=>=<;:9876543210/
                               0123456789:;<=>?@?>=<;:9876543210
                              123456789:;<=>?@ABA@?>=<;:987654321
                             23456789:;<=>?@ABCDCBA@?>=<;:98765432
                            3456789:;<=>?@ABCDEFEDCBA@?>=<;:9876543
                           456789:;<=>?@ABCDEFGHGFEDCBA@?>=<;:987654
                          56789:;<=>?@ABCDEFGHIJIHGFEDCBA@?>=<;:98765
                         6789:;<=>?@ABCDEFGHIJKLKJIHGFEDCBA@?>=<;:9876
                        789:;<=>?@ABCDEFGHIJKLMNMLKJIHGFEDCBA@?>=<;:987
                       89:;<=>?@ABCDEFGHIJKLMNOPONMLKJIHGFEDCBA@?>=<;:98
                      9:;<=>?@ABCDEFGHIJKLMNOPQRQPONMLKJIHGFEDCBA@?>=<;:9
                     :;<=>?@ABCDEFGHIJKLMNOPQRSTSRQPONMLKJIHGFEDCBA@?>=<;:
                    ;<=>?@ABCDEFGHIJKLMNOPQRSTUVUTSRQPONMLKJIHGFEDCBA@?>=<;
                   <=>?@ABCDEFGHIJKLMNOPQRSTUVWXWVUTSRQPONMLKJIHGFEDCBA@?>=<
                  =>?@ABCDEFGHIJKLMNOPQRSTUVWXYZYXWVUTSRQPONMLKJIHGFEDCBA@?>=
                 >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?>
                ?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?
               @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@
              ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA
             BCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdcba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCB
            CDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDC
           DEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFED
          EFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFE
         FGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGF
        GHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHG
       HIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIH
      IJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJI
     JKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJ
    KLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLK
   LMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONML
  MNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyzyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONM
 NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|{zyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPON
OPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~}|{zyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPO
code-golf  string  kolmogorov-complexity 
— कोनोर ओ ब्रायन
स्रोत
3
क्या कोई जानबूझकर पहली व्हाट्सएप-लाइन है?
— AdmBorkBork
9
@AdmBorkBork यह एक ऐसा स्थान है क्योंकि यह पहला ASCII char lol है
— HyperNeutrino
2
@ the4kman और <=>=<मछली।
— pizzapants184
4
वहाँ एक कारण यह शीर्षक नहीं है "आप ASCII तोरणों का निर्माण करना चाहिए!"
— Mattdm
3
@mattdm मैं केवल HNQ सूची से यहाँ आया था क्योंकि इसके शीर्षक के कारण इसे उकेरा गया था। अच्छी तरह से किया।
— टोड विलकॉक्स

जवाबों:

4

कैनवस , 15 14 बाइट्स

0ｃ［Ｃ²［ｊ｝¹ｍ］／││

यहाँ यह कोशिश करो!

ध्यान दें कि इसे बनाते समय मैंने एक जोड़ा बनाया- ins ( ｃ& Ｃ), जैसा कि कैनवस ने किसी भी तरह ASCII / यूनिकोड के लिए बिल्ट-इन नहीं किया है ...

स्पष्टीकरण (कुछ पात्रों को मोनोस्पेस देखने के लिए बदल दिया गया है):

0c              push the charcode of "0" - 48
  {       ]     map over 1..48
   C              push the ASCII characters
    ²[ ]          repeat by the counter (0-indexed)
      j             remove the last character
        ¹m        mold to the length of the counter
           /    pad each line with spaces so it looks like a diagonal
            ││  palindromize the whole thing horizontally
— dzaima
स्रोत
16

पॉवरशेल , 73 बाइट्स

' '*48;46..0|%{" "*$_+-join[char[]](($x=79-$_)..($y=$x+$j++)+(++$y)..$x)}

इसे ऑनलाइन आज़माएं!

पहले व्हाट्सएप-ओनली लाइन आउटपुट करता है, फिर लूप्स 46टू से 0। प्रत्येक पुनरावृत्ति, कुछ गणनाओं के माध्यम से, तत्संबंधी रिक्त स्थान की संख्या और फिर एक -joinसाथ-साथ charउपयुक्त प्रतीकों का एक संस्करण उत्पन्न करती है।

— AdmBorkBork
स्रोत
1
क्या आप पहली पंक्ति को 47 स्थानों के रूप में मानकर कुछ गणनाओं को सहेज सकते हैं और उसके बाद एक अंतरिक्ष वर्ण?
— रेकिंग
@ बाइकिंग ऐसा करने के लिए, आपको विशेष मामले की आवश्यकता होगी कि कैसे चार या 3 के बजाय केवल एक आइटम बनाने के लिए चार-सरणी बनाया जाता है। नतीजतन, यह विशेष रूप से रिक्त स्थान-केवल लाइन पूरी तरह से अलग होने के मामले में छोटा है।
— AdmBorkBork
11

चारकोल , 13 बाइट्स

Ｅ⁴⁸⮌✂γι⊕⊗ι‖Ｏ←

इसे ऑनलाइन आज़माएं! लिंक कोड के वर्बोज़ संस्करण के लिए है। स्पष्टीकरण:

 ⁴⁸             Literal 48
Ｅ               Map over implicit range
      ι  ι      Current index
        ⊗       Doubled
       ⊕        Incremented
     γ          Printable ASCII
    ✂           Slice
   ⮌            Reverse
                Implicitly print each slice on separate lines
          ‖Ｏ←   Reflect with overlap
— नील
स्रोत
5
आउटपुट मुझे गलत लगता है।
— मिस्टर एक्सकोडर
1
@ Mr.Xcoder उघ, क्लासिक ऑफ-बाय -1 त्रुटि ...
— नील
8

पायथन 2 , 73 बाइट्स

i=48
while i:i-=1;r=range(79-i,127-i*2);print' '*i+bytearray(r+r[-2::-1])

इसे ऑनलाइन आज़माएं! अराजकता गोल्फ से क्रॉसपोस्ट किया गया ( मेरी सबमिशन देखें )।

त्वरित पोस्टमार्टम विश्लेषण: xnor और dianne ने ठीक उसी समाधान की खोज की । Ebicochneal ने एक 71 बाइट समाधान प्रस्तुत किया, जो कि मिच 70 बाइट्स में सुधार हुआ । वे पूरी तरह से "करंट लाइन" वैरिएबल और इसे अपडेट करते हुए पूरी तरह से अपडेट करके bytearray(जो लंबा है) या ''.join(map(chr,…))पूरी तरह से निपटने से बचते हैं ।

— लिन
स्रोत
4

आम लिस्प , 110 बाइट्स

(dotimes(i 48)(dotimes(j 96)(princ(if(>(abs(- j 48))i)" "(code-char(+(-(* i 2)(abs(- j 48)))32)))))(princ"
"))

इसे ऑनलाइन आज़माएं!

व्याख्या

(dotimes(i 48)                   ;; for i from 0 up to 47
    (dotimes(j 96)               ;; for j from 0 up to 95
        (princ                   ;; print
            (if(>(abs(- j 48))i) ;; if abs(j - 48) > i
                " "              ;; print " "
                (code-char(+(-(* i 2)(abs(- j 48)))32)) ;; else print appropriate character
            )
        )
    )(princ"
") ;; print newline
)
— ASCII-केवल
स्रोत
3

VBA, 71 बाइट्स

अनाम VBE तत्काल विंडो फ़ंक्शन जो कंसोल के लिए कोई इनपुट और आउटपुट नहीं लेता है।

For i=0To 47:?Spc(47-i);:For j=-i To i:?Chr(32-Abs(j)+2*i);:Next:?:Next
— टेलर स्कॉट
स्रोत
3

रूबी , 70 बाइट्स

s=[*?\s..?~]*'';48.times{|i|puts s[i,i+1].rjust(48)+s.reverse[-2*i,i]}

इसे ऑनलाइन आज़माएं!

पूर्ण मुद्रण योग्य ASCII स्ट्रिंग का निर्माण करता है और फिर आगे की आवश्यक संख्या (रिक्त स्थान के साथ गद्देदार) + इसके पीछे के स्लाइस प्रिंट करता है।

— किरिल एल।
स्रोत
2

सी (जीसीसी), 117 बाइट्स

c;i;main(){for(i=0;i<48;++i){for(c=2*i-15;c<32+2*i;++c)putchar(c>31+i?c:32);for(;c>31+i;--c)putchar(c);putchar(10);}}

इसे ऑनलाइन आज़माएं!

Ungolfed:

int ch;
int row;
int main(void) {
    for (row = 0; row < 48; ++row) {
        for (ch = 2*row-15; ch < 32 + 2*row; ++ch) {
            // The first character in the row is 2*row - 15 (row is zero-indexed)
            if (ch > 31+row)
                putchar(ch);
            else
                // If the current character is not in the pyramid, mask it with a space
                putchar(' ');
        }
        for (; ch > 31+row; --ch) {
            // Finish the other side of the pyramid
            putchar(ch);
        }
        putchar('\n');
    }
}
— pizzapants184
स्रोत
— सीलिंगकैट
2

टी-एसक्यूएल, 153 बाइट्स

DECLARE @ INT=33,@t CHAR(95)=''a:PRINT @t;
SET @t=LEFT(STUFF(STUFF(@t,63-@/2,2,''),46,0,CHAR(@-1)+CHAR(@)+CHAR(@+1)+CHAR(@)),33+@/2)
SET @+=2IF @<128GOTO a

रिटर्न केवल प्रदर्शन के लिए हैं।

मैंने कई विचारों को आजमाया, जिसमें फुल स्ट्रिंग (163 अक्षर), और नेस्टेड लूप को फ्लाई (168 वर्ण) पर बनाने के लिए लूप भी शामिल था, लेकिन यह सबसे छोटा था।

मूल रूप से, प्रत्येक लूप मैं स्ट्रिंग के केंद्र में 4 नए वर्णों को क्रैम्पिंग कर रहा हूं , फिर SQL STUFF()फ़ंक्शन का उपयोग करके, दोनों सिरों से एक्स्ट्रा को ट्रिम कर रहा हूं ।

प्रारूपित और समझाया गया:

DECLARE @ INT=33,                      --Using a single counter for both rows and CHAR
        @t CHAR(95)=''                 --a non-null CHAR field will pre-fill with spaces
a:                                     --GOTO loop, shorter than a WHILE
    PRINT @t                           --duh
    SET @t = LEFT(                     --lops off the character at the end
            STUFF(                     --crams 4 new characters in the middle
            STUFF(@t, 63-@/2, 2, '')   --snips out a space and the leading character
                 ,46, 0, CHAR(@-1) + CHAR(@) + CHAR(@+1) + CHAR(@))
                 ,33 + @/2)            --rest of the LEFT()
    SET @+=2
IF @<128 GOTO a
— BradC
स्रोत
2

जे , 47 44 बाइट्स

(,.~}:@|."1)(1+i.48)([|.@{.}.)"0 1 u:31+i.96

इसे ऑनलाइन आज़माएं!

टेम्पलेट के लिए कॉनर ओ'ब्रायन को धन्यवाद! अमान्य समाधान का संकेत देने के लिए FrownyFrog का धन्यवाद।

— गैलेन इवानोव
स्रोत
1
शायद यह अधिक आसानी से परिवर्तनीय है: इसे ऑनलाइन आज़माएं!
— कॉनर ओ'ब्रायन
@Conor O'Brien - टेम्पलेट के लिए धन्यवाद, मैंने लिंक को अपडेट कर दिया है।
— गैलेन इवानोव
शीर्ष पर एक अतिरिक्त रेखा प्रिंट करता है।
— फ्रॉनीफ्रॉग
@FrownyFrog ओह, यह केवल अब है कि मैं देख रहा हूं कि केवल अनुगामी newlines की अनुमति है, अग्रणी नहीं। मैं इसे ठीक करने की कोशिश करूंगा।
— गैलेन इवानोव
@FrownyFrog - फिक्स्ड और थोड़ा गोल्फ।
— गालेन इवानोव
2

रूबी, 59 बाइट्स

48.times{|i|-47.upto(i){|c|putc~c<i ?32-c.abs+2*i:32};puts}

Anagol पर मेरे जवाब से क्रॉस-पोस्ट किया गया।

— histocrat
स्रोत
2

जाप -R, 18 15 बाइट्स

14 बाइट्स यदि एक अतिरिक्त प्रमुख नईलाइन की अनुमति है।

#0õ_odH+ZÉ ¬êÃû

झसे आज़माओ

व्याख्या

#0                  :48
  õ                 :Range [1,48]
   _         Ã      :Pass each Z through a function
    o               :  Range [0,Z)
      H+ZÉ          :    To each add 32+Z-1
     d              :    Get the character at that codepoint
           ¬        :  Join to a string
            ê       :  Palinrdomise
              û     :Centre pad each element to the length of the longest element
                    :Implicitly join with newlines and output
— झबरा
स्रोत
2

जे ,  40 37  32 बाइट्स

40 अभिव्यक्ति u:30+2>.(+:@i.@(2&+)(-*(>+:))"0 _|@i:)47+ गैलेन इवानोव और + कोनोर ओ'ब्रायन को उनके समाधान में विचारों के लिए धन्यवाद

37 में गूंज शामिल थी echo u:32+|.(~.(>:*+:@[-])"0 _])|i:47

echo u:32+|.(~.(>:*[+-)"{])|i:47

टिप्पणियों से @FrownyFrog युक्तियों को शामिल करना

TIO

— jayprich
स्रोत
मुझे नहीं लगता कि अभिव्यक्ति वैध प्रस्तुतियाँ हैं।
— LyricLy
@LyricLy, राय अलग-अलग लगती है क्योंकि मुझे इस रूप में एक और जे उत्तर दिखाई देता है .. वैसे भी मुझे एक और 8 बाइट दाढ़ी करने के लिए धन्यवाद करने के लिए .. अब मेरे पास "इको" जोड़ने के लिए कमरा है: आशा है कि आप खुश होंगे
— :)
"0 _→"{
— FrownyFrog
+:@[-]→[+-
— FrownyFrog
सुंदर .. इन युक्तियों के लिए धन्यवाद @FrownyFrog
— jayprich
1

पायथन 2 , 98 88 बाइट्स

-1 बाइट @ मिस्टरकोड के लिए धन्यवाद

i=32
exec"print''.join(chr(i+i-32-abs(j))for j in range(32-i,i-31)).center(95);i+=1;"*48

इसे ऑनलाइन आज़माएं!

— मृत पोसुम
स्रोत
-i+32=> 32-iऔर आप बाइट बचाने ' '*(79-i)के .center(95)लिए उपयोग कर सकते हैं ।
— मिस्टर एक्सकोडर
@ Mr.Xcoder धन्यवाद! ' '*(79-i)+वास्तव में बाइट्स को नहीं बचाता है: D
— डेड पोसूम
1

रूबी , 78 बाइट्स

s=*32;48.times{puts (s.map(&:chr)*'').center 95;c=*s[0]+1;s=c+s.map{|x|x+2}+c}

इसे ऑनलाइन आज़माएं!

पूरा कार्यक्रम। Ungolfed:

s=*32;                              # s is an array of integers
48.times{                           # Repeat 48 times:
  puts (s.map(&:chr)*'').center 95; # Turn each int to a char, join, center, and print
  c = *s[0] + 1;                    # c is a singleton array. It will bookend the next line
  s = c + s.map{|x|x+2} + c         # Add 2 to each element of s before adding the bookends
}
— benj2240
स्रोत
1

मेरी-बेसिक , 97 बाइट्स

एक गुमनाम MY-BASIC प्रतिक्रिया जो कंसोल के लिए कोई इनपुट और आउटपुट नहीं लेती है

For i=0 To 47
For j=i To 47
Print" "
Next
For j=-i To i
Print Chr(32-Abs(j)+2*i)
Next
Print;
Next

इसे ऑनलाइन आज़माएं!

-1 जोनाथन फ्रेच को धन्यवाद

— टेलर स्कॉट
स्रोत
1
Print " "-> Print" "।
— जोनाथन फ्रीच
@ जोनाथनफ्रेच - व्हाट्स एप सॉरी मैंने आपका नाम गलत बताया
— टेलर स्कॉट
1

गोल> <> , 29 बाइट्स

`0FaLssLF:P|LF:M|`/L-R` lRo|;

इसे ऑनलाइन आज़माएं!

यह काम किस प्रकार करता है

`0FaLssLF:P|LF:M|`/L-R` lRo|;

`0F                        |;  Repeat the following 48 times and halt...
   a                           Push 10 (\n)
    Lss                        Push L(loop counter) + 32
       LF:P|                   Repeat "Clone the top and increment" L times
            LF:M|              Repeat "Clone the top and decrement" L times
                 `/L-R`        Push 32 (space) 47-L times (space is significant)
                        lRo    Print everything as char, from the top,
                               until the stack is empty
— bubbler
स्रोत
1

Tcl , 129 122 118 117 बाइट्स

time {incr i;set j -48;set a {};time {set a $a[format %c [expr abs([incr j])>=$i?32:$i*2-abs($j)+30]]} 96;puts $a} 48

इसे ऑनलाइन आज़माएं!

व्याख्या

time { # for i from 0 up to 47
    incr i
    set j -48
    set a {}
    time { # for j from -48 up to 47
        # add next character to a
        set a $a[format %c [expr abs([incr j])>$i?32:$i*2-abs($j)+32]]
    } 96
    puts $a # print a
} 48
— ASCII-केवल
स्रोत
1

सी (जीसीसी) 199 बाइट्स

#include<stdio.h>
int i,j=32,k=32,l=49;int main(){while(k<127){for(i=0;i<l;++i)printf(" ");for(i=j;i<k;++i)printf("%c",i);printf("%c",k);for(i=k-1;i>=j;--i)printf("%c",i);printf("\n");j++;k+=2;l--;}}

इसे ऑनलाइन आज़माएं!

सभी की मदद के लिए Picard और PunPun1000 को धन्यवाद

— जोनाथन लैंड्रम
स्रोत
@Picard मैंने रिक्त स्थान हटा दिए। मैं आगे एक वैश्विक पुनरावृत्ति चर के साथ छोटा कर सकता हूं।
— जोनाथन लैंड्रम
@Picard मैंने इसे अपने फोन पर संपादित किया; मुझे एहसास नहीं था कि मैं एक खाली लाइन छोड़ दूंगा।
— जोनाथन लैंड्रम
1
कॉमा के बाद प्रिंटफ कॉल में अनावश्यक स्थान हैं, और चर नामों को एक अक्षर तक छोटा किया जा सकता है। इसके अलावा यह अच्छा होगा यदि आप एक TIO लिंक और वास्तविक बाइट गिनती शामिल कर सकते हैं। यहां आपके वर्तमान कोड TIO
— PunPun1000
ठीक है, मैंने इसे थोड़ा और निचोड़ लिया है, मुझे लगता है कि मुझे इसे और सिकोड़ने के लिए एल्गोरिथ्म को बदलना होगा
— जोनाथन लैंड्रम
1

हास्केल, 102 बाइट्स

main=putStr$do
i<-[48,47..0]
let l=replicate i 32++[79-i..126-i*2]
map toEnum$l++tail(reverse l)++[10]

जिन चीजों की मैंने कोशिश की है, वे छोटी नहीं थीं:

  • चरित्र शाब्दिक और succया predको बचाने के संदर्भ में सब कुछ व्यक्त करना map toEnum।
  • उपयोग करने के बजाय नीचे की ओर लिखना reverse।
— केविन रीड
स्रोत
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.