Argyle ASCII Art

Question

एक प्रोग्राम (या फ़ंक्शन) लिखें जो एक सकारात्मक पूर्णांक में लेता है।

यदि इनपुट है 1, तो दो हीरे पड़ोसी की तरफ से एक-एक करके, 1 स्लैश की साइड लंबाई के साथ, दो:

/\/\
\/\/

N1 से अधिक हर इनपुट के लिए N-1, पड़ोसी हीरे की प्रत्येक जोड़ी के लिए आउटपुट को देखें , उनके बीच में एक नया हीरा डालें जिनकी साइड की लंबाई दो पड़ोसियों की लंबाई के योग है। इस नए हीरे के पैटर्न को प्रिंट (या वापस) करें।

जब 2इनपुट होता है, तो हम आउटपुट के लिए 1देखते हैं और देख सकते हैं कि दो पड़ोसी हीरे हैं, दोनों साइड लंबाई के साथ 1. इसलिए हम उनके बीच एक साइड लंबाई 2 (1 + 1) हीरा डालें:

   /\
/\/  \/\
\/\  /\/
   \/

इनपुट के लिए 3हम 2पड़ोसी हीरे के दो जोड़े के बीच की लंबाई 3 (1 + 2 और 2 + 1) के साथ दो हीरे जोड़ते हैं:

    /\        /\
   /  \  /\  /  \
/\/    \/  \/    \/\
\/\    /\  /\    /\/
   \  /  \/  \  /
    \/        \/

पैटर्न को जारी रखना, इसके लिए आउटपुट 4है:

                    /\            /\
     /\            /  \          /  \            /\
    /  \    /\    /    \        /    \    /\    /  \
   /    \  /  \  /      \  /\  /      \  /  \  /    \
/\/      \/    \/        \/  \/        \/    \/      \/\
\/\      /\    /\        /\  /\        /\    /\      /\/
   \    /  \  /  \      /  \/  \      /  \  /  \    /
    \  /    \/    \    /        \    /    \/    \  /
     \/            \  /          \  /            \/
                    \/            \/

और इसी तरह।

आपके आउटपुट में किसी भी लाइन पर अनुगामी स्थान हो सकते हैं, लेकिन केवल एक अनुगामी न्यूलाइन (और कोई अग्रणी न्यूलाइन्स) नहीं है।

बाइट्स में सबसे छोटा कोड जीतता है।

Comments

प्रासंगिक OEIS: oeis.org/A002487 ।

— orlp

Answer 1

पायथ, 50 49 बाइट्स

L.rR"\/"_bjbyK.tsm+Jm+*\ k\\dyJu.iGsM.:G2tQjT9djK

प्रदर्शन

स्पष्टीकरण:

L.rR"\/"_bjbyK.tsm+Jm+*\ k\\dyJu.iGsM.:G2tQjT9djK
                                                     Implicit:
                                                     Q = eval(input())
                                                     T = 10
                                                     d = ' '
                                                     b = '\n'
L                                                    def y(b): return
 .rR"\/"                                             Swap \ and / in
        _b                                           reversed input.
                                                     This effectively vertically
                                                     mirrors the input.
                               u                     Apply the function repeatedly
                                           jT9       Starting with [1, 1]
                                         tQ          and repeating Q - 1 times
                                .iG                  interlace G (input) with
                                     .:G2            All 2 element substrings of G
                                   sM                mapped to their sums.
                 m                                   map over these values
                                                     implicitly cast to ranges
                    m       d                        map over the range values
                                                     impicitly cast to ranges
                     +*\ k\\                         to k spaces followed by
                                                     a backslash.
                   J                                 Save to J, which is roughly:
                                                     \
                                                      \
                  +          yJ                      And add on y(J), giving
                                                     \
                                                      \
                                                      /
                                                     /
                s                                    Combine the half diamonds
                                                     into one list.
              .t                              d      Traspose, filling with ' '.
             K                                       Save to K, giving
                                                     something like:
                                                     \  /
                                                      \/
            y                                        Vertically mirror.
          jb                                         Join on newlines and print.
                                               jK    Join K on (implicitly)
                                                     newlines and print.

Comments

हालात क्या हैं? मैं भी वास्तव में है u.iGsM.:G2tQjT9मेरी (आंशिक) समाधान में। मैंने आपके उत्तर पर कभी गौर नहीं किया ...

— orlp

@orlp अक्सर कुछ करने के लिए केवल एक सबसे अच्छा तरीका है।

— isaacg

Answer 2

आम लिस्प, 425

(labels((a(n)(if(> n 1)(loop for(x y)on(a(1- n))by #'cdr collect x when y collect(+ x y))'(1 1))))(lambda(~ &aux(l(a ~))(h(apply'max l))(w(*(apply'+ l)2))(o(* 2 h))(m(make-array(list o w):initial-element #\ ))(x 0)(y h))(labels((k(^ v)(setf(aref m y x)^(aref m(- o y 1)x)v)(incf x))(d(i)(when(plusp i)(k #\\ #\/)(incf y)(d(1- i))(decf y)(k #\/ #\\))))(mapc #'d l))(dotimes(j o)(fresh-line)(dotimes(i w)(princ(aref m j i))))))

उदाहरण

(funcall *fun* 4)

                    /\            /\                    
     /\            /  \          /  \            /\     
    /  \    /\    /    \        /    \    /\    /  \    
   /    \  /  \  /      \  /\  /      \  /  \  /    \   
/\/      \/    \/        \/  \/        \/    \/      \/\
\/\      /\    /\        /\  /\        /\    /\      /\/
   \    /  \  /  \      /  \/  \      /  \  /  \    /   
    \  /    \/    \    /        \    /    \/    \  /    
     \/            \  /          \  /            \/     
                    \/            \/                    

Ungolfed

(labels
    ((sequence (n)
       (if (> n 1)
           (loop for(x y) on (sequence (1- n)) by #'cdr
                 collect x
                 when y
                   collect(+ x y))
           '(1 1))))
  (defun argyle (input &aux
                  (list (sequence input))
                  (half-height (apply'max list))
                  (width (* (apply '+ list) 2))
                  (height (* 2 half-height))
                  (board (make-array
                          (list height width)
                          :initial-element #\ ))
                  (x 0)
                  (y half-height))
    (labels ((engrave (^ v)
               (setf (aref board y              x) ^ ;; draw UP character
                     (aref board (- height y 1) x) v ;; draw DOWN character (mirrored)
                     )
               (incf x) ;; advance x
               )
             (draw (i)
               (when (plusp i)
                 (engrave #\\ #\/)  ;; write opening "<" shape of diamond
                 (incf y)
                 (draw (1- i))   ;; recursive draw
                 (decf y)
                 (engrave #\/ #\\)  ;; write closing ">" shape of diamond
                 )))
      ;; draw into board for each entry in the sequence
      (mapc #'draw list))

    ;; ACTUAL drawing
    (dotimes(j height)
      (fresh-line)
      (dotimes(i width)
        (princ (aref board j i))))
    board))

Answer 3

CJam, 59 58 57 बाइट्स

YXbri({{_2$+\}*]}*:,_:|,S*0'\tf{fm>_W%'\f/'/f*}:+zN*_W%N@

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

CJam दुभाषिया में इसे ऑनलाइन आज़माएं ।

विचार

इनपुट 3 के लिए, उदाहरण के लिए, हम उत्पन्न करते हैं

\  
/  
\  
 \ 
  \
  /
 / 
/  
\  
 \ 
 / 
/  
\  
 \ 
  \
  /
 / 
/  
\  
/  

स्ट्रिंग को घुमाकर  \और स्लैश के साथ कुछ बैकस्लैश की जगह।

फिर, हम वांछित आउटपुट के निचले आधे हिस्से को प्राप्त करने के लिए परिणामी सरणी (पंक्तियों और स्तंभों को स्थानांतरित करें) को ज़िप करते हैं।

ऊपरी आधा बाइट प्रति बाइट होता है, जो रिवर्स में निचले आधे के बराबर होता है।

कोड

YXb     e# Push A := [1 1] and 2 in unary.
ri(     e# Read an integer fro STDIN and subtract 1.
{       e# Do the following that many times:
  {     e#   For each I in A but the first:
    _2$ e#     Push a copy of I and the preceding array element.
    +\  e#     Compute the sum of the copies and swap it with I.
  }*    e#
  ]     e#   Collect the entire stack in an array.
}*      e#
:,      e# Replace each I in A with [0 ... I-1].
_       e# Push a copy of A.
:|      e# Perform set union of all the ranges.
,S*     e# Get the length (highest I in A) and push a string of that many spaces.
0'\t    e# Replace the first space with a backslash.
f{      e# For each range in A, push the generated string; then:
  fm>   e#   Rotate the string by each amount in the array.
  _W%   e#   Push a reversed copy of the resulting array of strings.
  '\f/  e#   In each string, split at backslashes.
  '/f*  e#   Join each string, separating with slashes.
}       e#
:+      e# Concatenate the resulting arrays of strings.
zN*     e# Zip and join, separating by linefeeds.
_W%     e# Push a reversed copy of the string.
N@      e# Push a linefeed and rotate the original string on top of it.

Answer 4

Rev 1: रूबी 170

बड़ा हीरा बनाने और कम करने से बचने की नई विधि।

->n{a=[1]
m=1<<n-1
(m-1).times{|i|a<<a[i]<<a[i]+a[i+1]}
(-b=a.max).upto(b-1){|j|0.upto(m){|i|d=' '*q=a[-i]*2
(j*2+1).abs<q&&(d[j%q]=?\\;d[-1-j%q]=?/)   
print d}
puts""}}

रेव ०: रूबी, १,।

->n{a=[1]
m=1<<n-1
(m-1).times{|i|a<<a[i]<<a[i]+a[i+1]}
(2*b=a.max).times{|j|
0.upto(m){|i|d=' '*b*2;d[(b+j)%(b*2)]='\\';d[(b-1-j)%(b*2)]=?/
r=b-a[-i]
d.slice!(b-r,r*2)
print d}
puts ""}}

हीरे के आकार की गणना https://oeis.org/A002487 से पुनरावृत्ति संबंध के अनुसार की जाती है। इस प्रकार हम a1 से लेकर सभी पंक्तियों के लिए सभी तत्वों से युक्त सरणी बनाते हैं n। हम केवल अंतिम 1<<n-1तत्वों में रुचि रखते हैं (रूबी हमें नकारात्मक अनुक्रमित का उपयोग करते हुए सरणी से उन्हें प्राप्त करने की अनुमति देता है, -1 सरणी में अंतिम तत्व है), और 1स्थिति 0 से एक जन्मजात ।

हीरे द्वारा पंक्ति और हीरे द्वारा पंक्ति, हम सबसे बड़े हीरे के लिए वर्णों की पंक्ति खींचते हैं, फिर आवश्यक हीरे के लिए पंक्ति प्राप्त करने के लिए मध्य स्तंभों को काटते हैं। Rev 1 छोटा है, लेकिन मुझे यह तरीका पसंद आया।

मॉड्यूलर अंकगणित का उपयोग चारों ओर लपेटने के लिए किया जाता है ताकि एक ही अभिव्यक्ति सभी /सीधे जुड़ जाए और इसी तरह एक अभिव्यक्ति सभी को \सीधे जोड़ता है।

परीक्षण कार्यक्रम में अपराजित

f=->n{
  a=[1]
  m=1<<n-1
  (m-1).times{|i|a<<a[i]<<a[i]+a[i+1]}                   #concatenate a[i] and a[i]+a[i+1] to the end of a
    (2*b=a.max).times{|j|                                #run through lines (twice the largest number in a
      0.upto(m){|i|                                      #run through an initial '1' plus the last m numbers in a
      d=' '*b*2;d[(b+j)%(b*2)]='\\';d[(b-1-j)%(b*2)]=?/  #d is the correct string for this line of the largest diamond
      r=b-a[-i]                                          #calculate number of characters to be deleted from middle of d
      d.slice!(b-r,r*2)                                  #and delete them
      print d                                            #print the result
    }
    puts ""                                              #at the end of the line, print a newline
  }
}

f.call(gets.to_i)