ASCII मेमे एरो जेनरेटर

Question

विशेष विवरण

एक संख्या को देखते हुए n, ASCII "मेमे एरो" (अधिक से अधिक प्रतीक >), आकार का आउटपुट n।

n हमेशा 0 से अधिक एक धनात्मक पूर्णांक होगा।

उदाहरण

n = 2

\
 \
 /
/

n = 5

\
 \
  \
   \
    \
    /
   /
  /
 /
/

नमूना कोड

यहां एक नमूना कार्यक्रम, जिसे क्रिस्टल में लिखा गया है, जो सही परिणाम देता है। इसे के रूप में चलाएँ ./arrow 10।

arrow.cr:

def f(i)
        i.times { |j|
                j.times { print ' ' }
                puts "\\"
        }
        i.times { |j|
                (i-j-1).times { print ' ' }
                puts '/'
        }
end

f(ARGV[0].to_i)

नियम

• यह कोड-गोल्फ है । सबसे छोटा जवाब जीत जाता है। हालाँकि, मैं उत्तर का चयन नहीं करूंगा, क्योंकि सबसे छोटा उत्तर समय के साथ बदल सकता है।
• मानक खामियों की अनुमति नहीं है।

Comments

क्या आप सुनिश्चित हैं कि यह डुप्लिकेट नहीं है (क्या आपने सैंडबॉक्स किया है)? मुझे लगता है कि यह होने की संभावना है, लेकिन इसे खोजना लगभग असंभव है।

— मेरा सर्वनाम जुआन

कर सकते हैं nशून्य हो सकता है?

— xnor

मुझे लगता है कि इस सामान्य प्रतीक को "मेम तीर" कहना बहुत मूर्खतापूर्ण है। वे स्पष्ट रूप से कॉमेडी शेवरॉन हैं।

— तितर बितर होना

@Christian वे वास्तव में मनोरंजक कोण हैं

— dkudriavtsev

@ArtemisFowl मुझे लगा कि वे दिलचस्प बढ़ रहे हैं

— dkudriavtsev

Answer 1

कैनवस , 2 बाइट्स

＼═

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

Comments

कोड ही वास्तव में मुस्कान की तरह है।

— वैल का कहना है कि मोनिका

Answer 2

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

f(n,i){for(i=-n;n;printf("%*c\n",i?++i+n:n--,i?92:47));}

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

f(n,i){for(i=-n;i;printf("%*c\n",  ++i+n    ,  92   ));     //first print descending '\'s
       for(    ;n;printf("%*c\n",        n--,     47));}    // then print returning  '/'s

Answer 3

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

f=lambda n,p='':n*'?'and p+'\\\n'+f(n-1,p+' ')+p+'/\n'

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

एक अनुगामी न्यूलाइन के साथ आउटपुट।

Answer 4

05AB1E , 6 बाइट्स

'\3.Λ∊

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

व्याख्या

   .Λ    # draw
'\       # the string "\"
         # of length input
  3      # in the south-eastern direction
     ∊   # then vertically mirror it

Answer 5

सी # (विजुअल सी # इंटरएक्टिव कंपाइलर) , 66 बाइट्स

n=>new int[n*2].Select((a,b)=>"".PadLeft(b<n?b:n*2+~b)+"\\/"[b/n])

@Someone को एक बाइट धन्यवाद दिया।

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

Comments

n*2-b-1->n*2+~b

— मेरा सर्वनाम

Answer 6

C64Mini / C64 बेसिक (और अन्य सीबीएम बेसिक वैरिएंट्स), उपयोग किए गए 52 टोकन बेसिक

 0INPUTN:N=N-1:FORI=0TON:PRINTTAB(I)"\":NEXT:FORI=NTO0STEP-1:PRINTTAB(I)"/":NEXT

यहां निर्गमन के लिए गैर-अस्पष्ट संस्करण है:

 0 INPUT N
 1 LET N=N-1
 2 FOR I=0 TO N
 3  PRINT TAB(I);"\"
 4 NEXT I
 5 FOR I=N TO 0 STEP -1
 6  PRINT TAB(I);"/"
 7 NEXT I

कमांड शून्य-अनुक्रमित के Nरूप में कभी भी संख्या को लाइन शून्य में दर्ज किया जाता TABहै; FOR/NEXTलाइनों दो में छोरों चार और पांच के माध्यम से करने के लिए सात तो उत्पादन ऊपरी और निचले हिस्से अगर के माध्यम से memeक्रमशः तीर (एक स्थानांतरित कर दिया द्वारा प्रतिनिधित्व किया Mऔर स्थानांतरित कर दिया Nग्राफिक्स में मोड स्रोत )

Comments

क्या आप जानते हैं कि कमोडोर बेसिक में सभी कीवर्ड संक्षिप्त किए जा सकते हैं? : यहाँ एक लिंक भी है c64-wiki.com/wiki/BASIC_keyword_abbreviation उदाहरण के लिए, forहो सकता है fO( f- shoft o), printहै ?आदि,

— gaborsch

52 बाइट्स कोड गोल्फ में भ्रामक है, बायनेरिज़ की गिनती नहीं है, बस स्रोत कोड। यह कुछ अलग होना चाहिए: 0inputn:n=n-1:fOi=0ton:?tA(i)"\":nE:fOi=0ton:?tA(i)"/":nE- यह 57 बाइट्स लेता है।

— गैबोरच

जैसा कि यहां चर्चा की गई है -> codegolf.meta.stackexchange.com/questions/11553/… मैं उपयोग किए गए टोकन गिनाता हूं क्योंकि यह अधिक प्रतिनिधि है कि मेमोरी का कितना उपयोग किया जा रहा है।

— शॉन बेबर्स

ओह, मुझे यह नहीं पता था। क्या इस बारे में कोई निर्णय है? यहां तक ​​कि जवाब भी स्वीकार नहीं किया गया है।

— गाबर्सच

मेरा पहला कंप्यूटर एक सी 16 था, मैंने उस पर बहुत सारी असेंबली की, इसलिए कोई अपराध नहीं था, मुझे कमोडोर से प्यार है। C16 में बेसिक 3,5 था, प्रति पंक्ति 80 चार्ट, मेरे पास एक किताब भी थी जिसमें ROM लिस्टिंग बताई गई थी, इसलिए मुझे ठीक से पता था कि कैसे टोकेनाइजेशन और लिस्टिंग काम करती है,

— gaborsch

Answer 7

मारियोलेन , 719 677 बाइट्स

+
+
+
+
+
+         ((((+)+++++)))<
+>======================"
+)++++++)+++++++++++((-[!)
========================#=-
) ![-    <+;)+++)---)++++)<
)=#======"=================
) >)+)+((!
+ "======#
         <))))).(((((((<
 ========">============"
>)+)+((-[!+))        -[!((((((((.)).))))+(-[!)
"========#=============#====================#<
!)                                          <
#==========================================="
                  >(((((.)))>
                  "========<"========
 ![-)).))).(((((((![-    ))+![-((+)+)<((![<
 #================#=========#========"==#="===
 >                                   !  >-!
 "===================================#  "=#

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

यह उम्मीद से ज्यादा कठिन था ...

Answer 8

ब्रेनफक , 125 बाइट्स

++++++++++[->+>+++++++++>+++<<<]>>++>++>,[->[->+<<<.>>]<<<.<.>>>>>[-<+>]<+<]<<[--<<+>>]<<+>>>>>[-[-<+<.>>]<<<<<.>.>>>[->+<]>]

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

++++++++++[->+>+++++++++>+++<<<]>>++>++>    ; Initialize with " \"
,                                           ; Get input
[->                                         ; loop and decrement n 
    [->+<<<.>>]                             ; output number of spaces, copy n
    <<<.                                    ; output \
    <.                                      ; output newline
    >>>>                                    
    >[-<+>]<+                               ; copy copy of n back to original place 
<]
<<[--<<+>>]<<+>>                            ; change "\" to "/"
>>>                             
[                                           ; second loop for bottom half
 -                                          ; decrement n
 [-<+<.>>]                                  ; output n spaces
 <<<<<.>.                                   ; output \ and newline
 >>>[->+<]>                                 ; copy n back
]

Answer 9

रूबी , 111 99 77 73 68 64 57 56 बाइट्स

-12 बाइट्स धन्यवाद बेंजामिन अर्कहार्ट के लिए, -43 मैनटवर्क के लिए और -2 बाइट्स वैल्यू इंक के लिए धन्यवाद ।

->i{s=[];puts (0...i).map{|j|s=(p=' '*j)+?/,*s;p+?\\},s}

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

स्पष्टीकरण:

f=->i{                      # instead of a function, use a lambda
  s=[]                      # needs a helper variable *now*, for scope
  puts(                     # puts takes arbitrary num of args; \n after each
    (0...i).map{|j|         # not from 0 to i but from 0 to i-1 (*three* dots)
      s=(
        p=' '*j             # p will remain in scope inside of .map,
      )
      +?/                   # character literal instead of string
      ,*s                   # essentially appending to the array

      p+?\\                 # p is what's returned by .map, not s!

    },                      # up until here, 1st arg to display
    s                       # NOW, as the *2nd* arg, s is displayed
  )
}

वैकल्पिक (लेकिन लंबे समय तक) समाधान

एक मित्र ने इस उत्तर को पढ़ा और फिर कुछ और दृष्टिकोणों के साथ आने की कोशिश की। उन्हें यहां भी रखा, ताकि वे विशाल इंटरवेब से हार न जाएं।

इंजेक्ट और अनशिफ्ट, 72 बाइट्स

->n{puts (0...n).inject([]){|s,i|i=' '*(n-1-i);s.unshift i+?\\;s<<i+?/}}

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

downto, इंजेक्ट और अनशिफ्ट, 80 बाइट्स

->n{puts n.downto(1).map{|i|' '*(i-1)}.inject([]){|s,i|s<<i+?/;s.unshift i+?\\}}

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

पेचीदा, दो गैर-नेस्टेड छोरों, 127 बाइट्स

->n{
r=->s,c{s[0..-(c+1)],s[-c..-1]=s[c..-1],s[0..c-1];s};
n.times{|i|puts r[' '*n+?\\,n-i]}
n.times{|i|puts r[' '*n+?/,i+1]}
}

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

Comments

क्या उस व्हाट्सएप का एक बहुत कुछ नहीं हटाया जा सकता है?

— बेंजामिन उर्क्हार्ट

हां, कुल 12 बाइट्स, धन्यवाद! यह पहली बार था जब मैंने एक कोड गोल्फ गेम के लिए कुछ भी प्रस्तुत किया ...

— सिक्सटीफाइव

तब आपको रूबी में गोल्फिंग के लिए दिलचस्प टिप्स मिल सकते हैं , या यहां तक ​​कि सभी भाषाओं में गोल्फ के लिए टिप्स भी ।

— मैनटवर्क

आप String#rjust( यह ऑनलाइन प्रयास करें! ) के साथ पैडिंग के लिए आंतरिक छोरों को बदल सकते हैं ।

— मैनटवर्क

यहाँ मैंने उपर्युक्त 2 संग्रहों में से कुछ युक्तियों को इसे 57 वर्णों तक कम करने के लिए लागू किया है: इसे ऑनलाइन आज़माएँ!

— मैनटवर्क

Answer 10

पर्ल 5 -p , 36 बाइट्स

$\=($q=$"x$_)."\\
$\$q/
"while$_--}{

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

Answer 11

टी-एसक्यूएल कोड, 80 बाइट्स

DECLARE @ INT=3

,@z INT=0
x:PRINT
space(@-abs(@-@z-.5))+char(92-@z/@*45)SET
@z+=1IF @z<@*2GOTO x

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

टी-SQL क्वेरी, 96 बाइट्स

इस काम को ऑनलाइन करने के लिए मुझे कुछ छोटे फेरबदल करने पड़े। पंक्ति की शुरुआत में रिक्त स्थान ऑनलाइन स्निपेट में प्रदर्शित नहीं होता है। इसलिए मैं ascii 160 का उपयोग कर रहा हूं। प्रबंधन स्टूडियो में चलने पर, परिणाम को पाठ के रूप में दिखाने के लिए सेटिंग्स को बदलना संभव है, जिसके परिणामस्वरूप इस पोस्ट की गई स्क्रिप्ट में सही स्थान होंगे।

DECLARE @ INT=3
SELECT space(@-abs(@-number-.5))+char(92-number/@*45)FROM
spt_values WHERE number<@*2and'p'=type

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

Answer 12

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

filter f{if($_){'\'
--$_|f|%{" $_"}
'/'}}

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

Answer 13

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

↘Ｎ‖Ｍ↓

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

↘Ｎ

एक नंबर इनपुट करें और \उस लंबाई के s की एक विकर्ण रेखा प्रिंट करें ।

‖Ｍ↓

लाइन को लंबवत परावर्तित करें।

Answer 14

एपीएल (एनएआरएस), 40 चार्ट, 80 बाइट्स

{f←{⍺,⍨⍵⍴' '}⋄⊃('\'f¨k),('/'f¨⌽k←¯1+⍳⍵)}

परीक्षा:

  h←{f←{⍺,⍨⍵⍴' '}⋄⊃('\'f¨k),('/'f¨⌽k←¯1+⍳⍵)}
  h 2
\ 
 \
 /
/ 
  h 5
\    
 \   
  \  
   \ 
    \
    /
   / 
  /  
 /   
/    

Answer 15

रेटिना 0.8.2 , 32 बाइट्स

.+
$* ¶$&$* 
\G.
¶$`\
r`.\G
$'/¶

इसे ऑनलाइन आज़माएं! स्पष्टीकरण:

.+
$* ¶$&$* 

nरिक्त स्थान की दो लाइनें उत्पन्न करें ।

\G.
¶$`\

शीर्ष रेखा को \विकर्ण में बदल दें।

r`.\G
$'/¶

नीचे की रेखा को /विकर्ण में बदल दें।

Answer 16

सी (जीसीसी) , 67 65 बाइट्स

सीट्स के लिए -2 बाइट्स धन्यवाद

f(n,i){for(i=~n;i++<n;)i&&printf("%*c\n",n-abs(i)+1,"/\\"[i<0]);}

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

Answer 17

पायथन 2 , 85 84 81 80 75 बाइट्स

def a(n):l="for i in range(n):print' '*";exec l+"i+'\\\\'\n"+l+"(n+~i)+'/'"

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

Answer 18

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

param($n)0..--$n|%{' '*$_+'\'}
$n..0|%{' '*$_+'/'}

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

इसे बनाने में लगेगा ताकि यह केवल एक बार सीमा से गुजर जाए। हालांकि मस्तिष्क की कोई विधि खराब नहीं है।

Answer 19

टहनी, 115 बाइट्स

स्ट्रिंग को पीछे की ओर बनाता है, अंत में इसे "वापस" करता है।

सभी परिणामों को उत्पन्न करने के लिए एक मैक्रो का उपयोग करता है।

{%macro a(N,s="")%}{%for i in N..1%}{%set s=('%'~i~'s
'~s~'%'~i~'s
')|format('\\','/')%}{%endfor%}{{s}}{%endmacro%}

यह मैक्रो एक फ़ाइल में होना चाहिए, और इस तरह से आयात किया जाता है:

{% import 'macro.twig' as a %}

{{ a.a(<value>) }}

आप इसे https://twigfiddle.com/5hzlpz ("कच्चा परिणाम दिखाएं" पर क्लिक करें) पर आजमा सकते हैं ।

Answer 20

हास्केल , 52 49 बाइट्स

-3 बाइट्स श्रीकोटिलिज्म ओ'जैसिक के लिए धन्यवाद ।

unlines.g
g 0=[]
g n="\\":map(' ':)(g$n-1)++["/"]

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

Comments

आप के g$n-1बजाय के साथ एक बाइट बचा सकते हैं g(n-1)। तुम भी गिनती करने की आवश्यकता नहीं है f=क्योंकि fकभी भी संदर्भित नहीं होता है।

— तदर्थ गार्फ हंटर

Answer 21

MATL, 14 13 12 बाइट्स

Xy92*t45-Pvc

1 बाइट ने @LuisMendo को धन्यवाद दिया

व्याख्या

        % Implicitly grab the input as an integer
Xy      % Create an identity matrix this size
92*     % Multiply by 92 (ASCII for '\')
t       % Duplicate the matrix
45-     % Subtract 45 from every element yielding 47 (ASCII for '/') on the diagonal
        % and -45 everywhere else
P       % Vertically flip this matrix
v       % Vertically concatenate the two matrices
c       % Convert to characters (negative numbers are replaced with a space)
        % Implicitly display the result

MATL ऑनलाइन पर इसे आज़माएं

Comments

@LuisMendo अपडेटेड! धन्यवाद!

— स्वेवर

Answer 22

पायथन 3 , 90 83 बाइट्स

lambda n:'\n'.join([' '*i+'\\'for i in range(n)]+[' '*(n+~i)+'/'for i in range(n)])

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

-7 बाइट्स @ @ धन्यवाद का धन्यवाद

Comments

83 बाइट्स , लेकिन मुझे लगता है कि यह अभी भी नीचे जा सकता है

— स्क्वीड

काश यह संभव होता।

— आर्टेमिस अभी भी

जल्द ही ...

— विद्रोही

ओह, मैं उस के बारे में भूल गया था। शायद आपको इसे जमा करना चाहिए!

— आर्टेमिस अभी भी एसई

Answer 23

रॉकस्टार, 133 बाइट्स

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

F takes N,S
If N is 0
Give back N

Say S+"\"
Let T be S+" "
Let M be N-1
F taking M,T
Say S+"/"

Listen to X
F taking X,""

चूंकि रॉकस्टार स्ट्रिंग संचालन के लिए प्रसिद्ध नहीं है, इसलिए इसे करने के लिए अपेक्षाकृत बहुत सारे कोड लगते हैं (पुनरावृत्ति इससे भी लंबी थी)।

तीर का आकार इनपुट के रूप में लिया जाता है।

Answer 24

PHP ,79 63 61 बाइट्स

function f($x,$s=''){if($x)echo"$s\\
",f($x-1,"$s "),"$s/
";}

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

PHP में पुनरावर्ती।

-12 बाइट्स @manatwork द्वारा

Comments

बेहतर है नीचे गिनती। इसे ऑनलाइन आज़माएं! ।

— मैनटवर्क

@manatwork बहुत बहुत अच्छा!

— 640KB

Answer 25

\ / \ /> , 74 बाइट्स

jp100o
-84*}!o:?!x1
@+:q:p=?x:o~$:0(pa"\/"q?$~}}:
x2-:p$1-y$:0(?
.{suh?!;2

स्पष्टीकरण: (आरंभ बिंदु पर आधारित रेखाएँ घुमाई गई)

jp100o                        //setup
:?!x1-84*}!                   //add leading spaces, loop and decrement until 0
~$:0(pa"\/"q?$~}}:@+:q:p=?x:o //add correct slash, go back to loop or switch sides
$:0(?x2-:p$1-y                //flip direction state or continue to print
{suh?!;2.                     //remove extra data and print stack

Comments

\/\/> (pronounced wɜrm)धन्यवाद, मुझे इससे नफरत है। (jk, मैं इसे आज़माने के लिए उत्सुक हूँ)

— जो किंग

@ जोक हाहाहा, मेरी आस्तीन पर मेरी प्रेरणा है। (धन्यवाद!)

— टॉरैडो

Answer 26

पायथन 3 , 55 बाइट्स

f=lambda n,i="":n and i+"\\\n"+f(n-1,i+" ")+i+"/\n"or""

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

Comments

54 बाइट्स ।

— चास ब्राउन

Answer 27

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

f=lambda n,s='':n and f(n-1,~-n*' '+'\\\n'+s+~-n*' '+'/\n')or s

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

Answer 28

स्टैक्स , 10 बाइट्स

Ç₧¥╗M'gQ9⌂

इसे चलाएं और डीबग करें

Answer 29

SimpleTemplate , 100 बाइट्स

यह काफी मजेदार चुनौती थी, लेकिन भाषा में कुछ बगों ने इसे अनुकूलित करना कठिन बना दिया।

{@set_ argv.0}{@while_}{@callstr_repeat intoS" ",_}{@setO S,"\\\n",O,S,"/\n"}{@incby-1_}{@/}{@echoO}

मूल रूप से, साइकल पीछे की ओर से मानों को घुमाती है, बीच से स्ट्रिंग को बाहर निकालती है।

---

उत्तर कैसा होना चाहिए

बग के कारण, कोड की ठीक से व्याख्या नहीं की जा रही थी।

इस तरह से कोड होगा, यदि कंपाइलर में कोई बग (86 बाइट) नहीं था:

{@forfrom argv.0to0step-1}{@callrepeat intoS" ",_}{@setO S,"\\
",O,S,"/
"}{@/}{@echoO}

ओह, ठीक है, कम से कम समाधान काम करता है: एक्स

Answer 30

जावास्क्रिप्ट (Node.js) , 42 बाइट्स (यदि नई लाइन की अनुगामी की अनुमति है)

n=>(F=s=>n--?s+`\\
`+F(s+" ")+s+`/
`:"")``

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

जावास्क्रिप्ट (Node.js) , 48 46 बाइट्स

n=>(F=s=>s+`\\
${--n?F(s+" ")+`
`:""}${s}/`)``

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