कोच स्नोफ्लेक - कोडगॉल्फ

Question

कोच हिमलव (भी कोच स्टार और कोच द्वीप के रूप में जाना जाता है) एक गणितीय वक्र और जल्द से जल्द भग्न घटता में से एक वर्णित किया गया है के लिए है। यह कोच कर्व पर आधारित है, जो 1904 में "टंगेंट्स के बिना एक सतत वक्र, प्राथमिक ज्यामिति से रचनात्मक" शीर्षक से प्रकाशित हुआ था (मूल फ्रेंच शीर्षक: "सुर उने आंसू जारी रखें सैंज तांगे, obtenue pare निर्माण géométrique élémentaire") द्वारा स्वीडिश गणितज्ञ हेलगे वॉन कोच।

यहां विभिन्न पुनरावृत्तियों के कुछ अभिसरण प्रस्तुत किए गए हैं:

n=1
__
\/

n=2
__/\__
\    /
/_  _\
  \/

n=3
      __/\__
      \    /
__/\__/    \__/\__
\                /
/_              _\
  \            /
__/            \__
\                /
/_  __      __  _\
  \/  \    /  \/
      /_  _\
        \/ 

चूँकि स्पष्ट रूप से आस्की प्रतिनिधित्व के संकल्प की एक सीमा है, हमें अतिरिक्त विवरण दिखाने के लिए प्रत्येक पुनरावृत्ति के लिए 3 के कारक द्वारा स्नोफ्लेक का आकार बढ़ाना चाहिए।

N = 4 के लिए उसी स्टाइल में स्नोफ्लेक आउटपुट करने के लिए सबसे छोटा कोड लिखें

आपके प्रोग्राम को कोई इनपुट नहीं लेना चाहिए।
आपके प्रोग्राम को कंसोल पर स्नोफ्लेक लिखना चाहिए।

Comments

कोच-स्नोफ्लेक .. ए टैग .. दिलचस्प है .. !! .. लगता है कि आप इस टैग पर और अधिक सवाल

— उठा रहे होंगे

एक उत्तर के लिए बहुत कम: wolframalpha.com/input/?i=koch+snowflake+4 : D

— डॉ। बेलिसरियस

क्या स्वीकृत उत्तर को बदला जाना चाहिए? अब छोटे समाधान हैं।

— तिवारी

Answer 1

पायथन, 338 बाइट्स

#coding:u8
print u"碜䄎쀠ࢻ﬊翀蝈⼖㗎芰悼컃뚔㓖ᅢ鄒鱖渟犎윽邃淁挢㇌ꎸ⛏偾࿵헝疇颲㬤箁鴩沬饅앎↳\ufaa4軵몳퍋韎巃๧瓠깡未늳蒤ꕴ⁵ᦸ䥝両䣚蟆鼺伍匧䄂앢哪⡈⁙ತ乸ሣ暥ฦꋟ㞨ޯ⿾庾뻛జ⻏燀䲞鷗﫿".encode("utf-16be").decode("zlib")

बस एक और यूनिकोड शोषण

विचारधारा पर चलें

Comments

उचित पर्याप्त है, लेकिन निश्चित रूप से यह स्रोत फ़ाइल को 300 से अधिक बाइट्स लंबा कर देगा।

— टिम्मि

लिंक टूट गया है

— चिले दस ब्रिंक

Answer 2

पायथन, 650 612 594 574 वर्ण

n='\n'
S='_a/G\F I\n'
A=dict(zip(S,('III','   ','__/','  G','\  ','F__','   ','III','')))
B=dict(zip(S,('III','   ','\  ',' aF','/a ','  G','   ','III','')))
C=dict(zip(S,('___','aaa','/  ','GII','II\\','  F','   ','III','')))
def T(s):
 a=b=c=d=r=u''
 for k in s:
    a+=A[k];b+=B[k];c+=C[k]
    if k=='I':a=a[:-3]+('II\\'if'a '==d[1:3]else'GII'if' a'==d[:2]else 3*k)
    d=d[3:]
    if k==n:d=c.replace('____','__/F').replace('aaaa','aa  ').replace('/  a','/a  ').replace('a  F','  aF');r+=a+n+b+n+d+n;a=b=c=''
 return r
print T(T(T('__\n\G\n'))).translate({97:95,71:47,73:32,70:92})

यह प्रत्येक बार 3 के कारक द्वारा त्रिभुज का विस्तार करके काम करता है। ऐसा करने के लिए, हमें इस पर नज़र रखने की ज़रूरत है कि क्या प्रत्येक प्रतीक एक बाईं या दाईं सीमा है (जैसे कि /विस्तार कैसे किया जाता है यह इस बात पर निर्भर करता /है कि अंदर कौन सा है)। हम दो संभावित मामलों के लिए विभिन्न प्रतीकों का उपयोग करते हैं, इस प्रकार है:

_: _, outside on the top
a: _, outside on the bottom
/: /, outside on the left
G: /, outside on the right
\: \, outside on the left
F: \, outside on the right
<space>: inside
I: outside

dचर विशेष मामले में जहां एक के विस्तार संभालती aजरूरतों अगली पंक्ति में 3x3 में विस्तार करने के लिए।

Comments

बोर्ड पर पहला उत्तर पाने के लिए +1। मुझे लगता है कि आप लूप के लिए टैब के साथ डबल स्पेस को बदल सकते हैं। K == "A" आदि के बजाय यदि k <"C" का उपयोग करने का प्रयास करें, तो अब मुझे आपके एल्गोरिथ्म पर करीब से देखना होगा :)

— gnibbler

यदि आप एक सहयोगी सरणी के साथ बयान करते हैं तो क्या आप कई को नहीं हटा सकते हैं? और शायद जंजीर की जगह बयानों को एक सरणी के साथ छोटा किया जा सकता है।

— नबाब

('acEei',r'_/\\ ')=> ('aecEi','_\/\ ')1 और बचाता है। तुम भी बाहर की जाँच करना चाहते हो सकता है unicode.translate()।

— gnibbler

यह भी स्नोफ़्लेक से पहले 18 नई-पंक्तियों के बारे में प्रिंट, लेकिन मैं ओपी निर्दिष्ट नहीं किया है कुछ भी है कि क्या लगता है अन्य स्नोफ़्लेक से मुद्रित किया जा सकता है।

— रोमनस्ट

Answer 3

MS-DOS 16 बिट मशीन कोड: 199 बाइट्स

इस साइट का उपयोग करते हुए डिकोड करें , 'koch.com' फ़ाइल के रूप में सहेजें और WinXP कमांड प्रॉम्प्ट से निष्पादित करें।

sCAAxo7ajsKLz/OquF9fulwvvUoBM9u+BADoiQDodgDocwDogADobQDoagDodwCK8TLSs0+I98cHDQrGRwIktAnNIf7GOO5+7MNWAVwBYwFsAXoBgwGJB4DDAsOIN/7D6QQA/suIF/7P6R0A/suAPyB1AogH/suIB8OBw/8AiDfpBgD+x4gX/sM4734Ciu84z30Cis/Dg8UIg8UCgf1WAXLzg+0Mw07/dgB0GV/o9v/o5v/o8P/o3f/o2v/o5//o1//o4f9Gww==

अद्यतन करें

यहाँ एक आसानी से पढ़ा जाने वाला कोडांतरक संस्करण है:

  ; L-System Description
  ;
  ; Alphabet : F
  ; Constants : +, -
  ; Axiom : F++F++F
  ; Production rules: F -> F-F++F-F 
  ;
  ; Register usage:
  ;                             _        _
  ; bp = direction: 0 = ->, 1 = /|, 2 = |\, 3 = <-, 4 = |/_, 5 = _\|
  ; cl = min y, ch = max y
  ; bl = x (unsigned)
  ; bh = y (signed)
  ; si = max level

  ; clear data
  mov al,20h
  add dh,al
  mov ds,dx
  mov es,dx
  mov cx,di
  rep stosb
  mov ax,'__'
  mov dx,'/\'

  ; initialise variables
  mov bp,Direction0
  xor bx,bx
  mov si,4

  call MoveForward
  call TurnRight
  call TurnRight
  call MoveForward
  call TurnRight
  call TurnRight
  call MoveForward

  mov dh,cl
  xor dl,dl
  mov bl,79
OutputLoop:
  mov bh,dh
  mov w [bx],0a0dh
  mov b [bx+2],24h
  mov ah,9
  int 21h
  inc dh
  cmp dh,ch
  jle OutputLoop  
  ret

Direction0:
  dw MoveRight
  dw MoveUpRight
  dw MoveUpLeft
  dw MoveLeft
  dw MoveDownLeft
  dw MoveDownRight
Direction6:

MoveRight:
  mov w [bx],ax
  add bl,2
  ret

MoveUpRight:
  mov b [bx],dh
  inc bl
  jmp DecBHCheckY

MoveUpLeft:
  dec bl
  mov b [bx],dl
DecBHCheckY:  
  dec bh
  jmp CheckY

MoveLeft:
  dec bl  
  cmp b [bx],20h
  jne MoveLeftAgain
  mov [bx],al
MoveLeftAgain:
  dec bl  
  mov [bx],al
  ret

MoveDownLeft:
  add bx,255
  mov b [bx],dh
  jmp CheckY

MoveDownRight:
  inc bh
  mov b [bx],dl
  inc bl

CheckY:
  cmp bh,ch
  jle NoMaxChange
  mov ch,bh
NoMaxChange:  
  cmp bh,cl
  jge NoMinChange
  mov cl,bh
NoMinChange:  
  ret

TurnRight:
  add bp,8

TurnLeft:
  add bp,2

  cmp bp,Direction6
  jb ret
  sub bp,12
  ret

MoveForward:
  dec si
  push [bp]
  jz DontRecurse
  pop di
  call MoveForward
  call TurnLeft
  call MoveForward
  call TurnRight
  call TurnRight
  call MoveForward
  call TurnLeft
  call MoveForward
DontRecurse:
  inc si
  ret

Comments

अचूक जादू :), कृपया मुझे यह समझने में मदद करें (कम से कम आपने जो किया उस पर एक लिंक प्रदान करें)

— अमन ज़ीके वर्मा

@Aman: यह आउटपुट को आकर्षित करने के लिए कोक वक्र के एल-सिस्टम विवरण का उपयोग करता है। विवरण का स्तर एसआई रजिस्टर में सेट किया गया है, हालांकि आकार प्रति पंक्ति 252 वर्णों तक सीमित है। आपको 79 वर्णों से अधिक लंबी लाइनें प्राप्त करने के लिए मुद्रण कोड को संशोधित करने की आवश्यकता होगी (यानी जहां यह '\ n $' अक्षर लिखते हैं)।

— स्किज

भी उपयोग कर सकते हैं "scAA...w==".decode("base64")Python2 में डिकोड लिए (Python3 के लिए काम नहीं करता है)

— gnibbler

+1 अब मेरे पास इसे चलाने के लिए एक विंडोज़ मशीन है। किसी भी मौका आप asm संस्करण शामिल कर सकते हैं?

— जिब्बलर

@mellamokb: इरेट, क्योंकि सभी सोर्स कोड शायद उपलब्ध हैं?

— स्किज

Answer 4

पर्ल, 176 175 बाइट्स

इसे एक अलग उत्तर के रूप में पोस्ट करना क्योंकि यह एक द्विआधारी स्रोत फ़ाइल का उपयोग करता है, जो शायद थोड़ा धोखा है। लेकिन यह देखते हुए कि यह अभी भी पर्ल स्रोत कोड है, मुझे लगता है कि यह उल्लेखनीय है कि यह एमएस-डॉस मशीन कोड समाधान को हराता है !

बेस 64- एनकोडेड के रूप में स्रोत

JF89IsLApwag0dhnMmAmMEcGIAcGQNHYwsDRFLsQ0djCwKcGoNHYwsDRFDdbECYwcRUxe1DCwNEUuxDR2
CI7c14uXiR4PW9yZCQmOyQieCgkeD4+MykucXcoXCAvXyBfXy8gXC8gX18gX1wgLyBfXy9cX18pWyR4Jj
ddXmVnO3NeLnsyN31eJF89cmV2ZXJzZSQmO3l+L1xcflxcL347cHJpbnQkJi4kXy4kL15lZw==

कुछ अधिक पठनीय

/<[0-9a-f]+>/प्रासंगिक बाइनरी डेटा के साथ सभी उदाहरणों को बदलें :

# Raw data!
$_="<c2c0a706a0d1d86732602630470620070640d1d8c2c0d114bb10d1d8c2>".
   "<c0a706a0d1d8c2c0d114375b1026307115317b50c2c0d114bb10d1d8>";

# Decode left half of the snowflake (without newlines)
s^.^$x=ord$&;$"x($x>>3).qw(\ /_ __/ \/ __ _\ / __/\__)[$x&7]^eg;

# Reconstruct the right half and the newlines
s^.{27}^$_=reverse$&;y~/\\~\\/~;print$&.$_.$/^eg

इस संस्करण में, बर्फ के टुकड़े को निम्न तरीके से कूटबद्ध किया गया है:

• प्रत्येक बाइट में 8 बिट इस तरह विभाजित हैं:

  +---+---+---+---+---+---+---+---+
  |      5 bits       |   3 bits  |
  +---+---+---+---+---+---+---+---+
            R               C
  

• Rरिक्त स्थान की एक रन एनकोड करता है। सबसे लंबा रन 27 अक्षरों का है, इसलिए सभी 5 बिट में फिट होते हैं।

• Cवर्णों के एक क्रम को एनकोड करता है, जिसे केवल शाब्दिक सरणी में देखा जाता है। (मैं यहाँ थोड़ा सा पागल सांकेतिक शब्दों में बदलना था, जहां सरणी केवल निहित थी / \ _, लेकिन इसे लंबे समय तक डिकोड करने के लिए आवश्यक पर्ल कोड ...)

• मैं भाग्यशाली हूं कि बाइनरी डेटा में कोई भी शामिल नहीं है " / 'या नहीं \है, जिससे बचने की आवश्यकता होगी। मैंने इसके लिए कोई योजना नहीं बनाई। लेकिन अगर यह किया है, मैं शायद यह ठीक करने के लिए सरणी में आइटम के क्रम को बदल सकता है।

• यह आश्चर्यजनक है कि दसियों अन्य समाधानों की तुलना में यह समाधान कितना सरल है, इससे पहले कि मैं इसके साथ आया। मैंने कई अलग-अलग बिटकॉइन एन्कोडिंग के साथ प्रयोग किया, यह एक से अधिक जटिल था, और यह मेरे लिए कभी नहीं हुआ कि एक सरल एक इसके लायक हो सकता है क्योंकि पर्ल कोड को डिकोड करने के लिए यह छोटा होगा। मैंने वेरिएबल इंटरपोलेशन (अन्य उत्तर देखें) का उपयोग करके डेटा में दोहराव को संपीड़ित करने की कोशिश की, लेकिन नवीनतम संस्करण के साथ जो अब किसी भी वर्ण को प्राप्त नहीं करता है।

Answer 5

पायथन, 284

for s in "eJyVkNENACEIQ/+dgg1YiIT9tzgENRyWXM4/pH1tIMJPlUezIiGwMoNgE5SzQvzRBq52Ebce6cr0aefbt7NjHeNEzC9OAalADh0V3gK35QWPeiXIFHKH8seFfh1zlQB6bjxXIeB9ACWRVwo=".decode('base64').decode('zlib').split('\n'):print s+'  '*(27-len(s))+'\\'.join([c.replace('\\','/')for c in s[::-1].split('/')])

थोड़ा और व्हाट्सएप के साथ:

for s in "eJyVkNENACEIQ/+dgg1YiIT9tzgENRyWXM4/pH1tIMJPlUezIiGwMoNgE5SzQvzRBq52Ebce6cr0aefbt7NjHeNEzC9OAalADh0V3gK35QWPeiXIFHKH8seFfh1zlQB6bjxXIeB9ACWRVwo=".decode('base64').decode('zlib').split('\n'):
  print s + '  '*(27-len(s)) + '\\'.join([c.replace('\\','/') for c in s[::-1].split('/')])

बाईं ओर संकुचित है; दाईं ओर बाईं ओर से पुन: प्रस्तुत किया गया है।

Answer 6

पर्ल, 224 223 वर्ण

use MIME::Base64;$_=decode_base64 wsCnBqDR2GcyYCYwRwYgBwZA0djCwNEUuxDR2MLApwag0djCwNEUN1sQJjBxFTF7UMLA0RS7ENHY;s^.^$x=ord$&;$"x($x>>3).qw(\ /_ __/ \/ __ _\ / __/\__)[$x&7]^eg;s^.{27}^$_=reverse$&;y~/\\~\\/~;print$&.$_.$/^eg

कुछ अधिक पठनीय

use MIME::Base64;

# raw binary data in base-64-encoded form as a bareword
$_=decode_base64
    wsCnBqDR2GcyYCYwRwYgBwZA0djCwNEUuxDR2MLApwag0djCwNEUN1sQJjBxFTF7UMLA0RS7ENHY;

# Decode left half of the snowflake (without newlines)
s^.^$x=ord$&;$"x($x>>3).qw(\ /_ __/ \/ __ _\ / __/\__)[$x&7]^eg;

# Reconstruct the right half and the newlines
s^.{27}^$_=reverse$&;y~/\\~\\/~;print$&.$_.$/^eg

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

यह कैसे काम करता है, इसकी व्याख्या के लिए , दूसरे उत्तर को देखें जिसमें मैं बाइनरी में समान पोस्ट करता हूं । मुझे वास्तव में खेद है कि मैं वास्तव में पैदा नहीं कर रहा हूं में कोच हिमपात का एक टुकड़ा , बस इसे संपीड़ित कर ...

पिछला संस्करण

• (३५ ९) केवल बाएं आधे हिस्से के बजाय पूरे बर्फ के टुकड़े को कूट दिया। स्पेस को बिट एन्कोडिंग में शामिल किया गया था; कोई रन-लेंथ नहीं। कई प्रक्षेपित चर और एक @_सरणी का उपयोग किया गया था जिसका उपयोग करके पहुँचा गया था s/\d/$_[$&]/eg। के रूप में एनकोड किए गए थे !।

• (289) पहला संस्करण जिसने स्नोफ्लेक के केवल आधे हिस्से को एन्कोड किया।

• (267) पहला संस्करण जो रिक्त स्थान के लिए रन-लंबाई एन्कोडिंग का उपयोग करता था।

• (266) बदलें ' 'करने के लिए $"।

• (224) मूल रूप से अलग-अलग संपीड़न, बेस -64 के रूप में एन्कोडेड। (अब बाइनरी संस्करण के बराबर है ।)

• (223) एहसास हुआ कि मैं प्रिंट को अंतिम विकल्प के अंदर रख सकता हूं और इस प्रकार एक अर्धविराम बचा सकता हूं।