Кох Снежинка - кодегольф

21

Снежинки Коха (также известные как звезда Коха и остров Кох) является математическим кривой , и один из самых ранних фрактальных кривых , чтобы было описаны. Он основан на кривой Коха, появившейся в статье 1904 года, озаглавленной «На непрерывной кривой без касательных, конструируемой из элементарной геометрии» (оригинальное французское название: «Sur une courbe continue sans tangente, obtenue par uns construction géométrique élémentaire») шведский математик Хельге фон Кох.

введите описание изображения здесь

Вот некоторые представления ascii различных итераций:

n=1
__
\/

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

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

Поскольку очевидно, что разрешение представления ascii ограничено, мы должны увеличить размер снежинки в 3 раза для каждой итерации, чтобы показать дополнительную детализацию.

Напишите кратчайший код для вывода снежинки в том же стиле для n = 4

Ваша программа не должна принимать никаких данных.
Ваша программа должна записать снежинку в консоль.

gnibbler
источник
Кох-снежинка ..а тег .. это интересно .. !! .. кажется, вы будете задавать больше вопросов по этому тегу :)
Aman ZeeK Verma
5
Слишком коротка для ответа: wolframalpha.com/input/?i=koch+snowflake+4 : D
Доктор Белизарий
1
Следует ли изменить принятый ответ? Есть более короткие решения сейчас.
Тимви,

Ответы:

2

Python, 338 байт

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

Просто еще один юникод-эксплойт

бежать в идеоне

ТЫ
источник
5
Справедливо, но, конечно, это сделало бы исходный файл длиннее 300 байт.
Timwi
ссылка не работает
Chiel ten Brinke
10

Python, 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 в следующей строке.

Кит Рэндалл
источник
+1 за получение первого ответа на доске. Я думаю, вы можете заменить двойные пробелы на вкладку в цикле for. Также попробуйте использовать, если k <"C" вместо K == "A" и т. Д. Теперь я должен взглянуть поближе на ваш алгоритм :)
gnibbler
Вы не можете удалить операторы if if с ассоциативным массивом? И, возможно, цепочечные операторы замены могут быть сокращены массивом.
Набб
('acEei',r'_/\\ ')=> ('aecEi','_\/\ ')сохраняет еще 1 Вы также можете проверить unicode.translate().
gnibbler
Это также печатает около 18 строк до снежинки, но я полагаю , что ОП не уточнил , является ли что - либо другое может быть напечатано , чем снежинка.
RomanSt
6

16-битный машинный код MS-DOS: 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
Skizz
источник
Абсолютная магия :), пожалуйста, помогите мне понять это (по крайней мере, предоставьте ссылку на то, что вы сделали)
Aman ZeeK Verma
@ Aman: он использует L-систему для описания кривой Коха, чтобы сделать вывод. Уровень детализации устанавливается в регистре SI, хотя размер ограничен 252 символами на строку. Вам нужно будет изменить код печати, чтобы получить строки длиной более 79 символов (т. Е. Изменить место, где пишутся символы '\ n $').
Skizz
также можно использовать "scAA...w==".decode("base64")для декодирования в Python2 (не работает для Python3)
gnibbler
+1 теперь, когда у меня есть машина с Windows для запуска. Есть ли шанс, что вы можете включить asm версию?
gnibbler
2
@mellamokb: ошибка, потому что весь исходный код доступен, возможно?
Skizz
4

Perl 176 175 байт

Размещение этого в качестве отдельного ответа, потому что он использует двоичный исходный файл, который, возможно, немного обманывает. Но, учитывая, что это все еще исходный код Perl , я думаю, что замечательно, что он превосходит решение машинного кода MS-DOS !

Источник как base64-закодированный

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кодирует последовательность символов, которые просто ищутся в массиве литералов. (Раньше у меня были немного более безумные кодировки, где содержался только массив / \ _, но код Perl, необходимый для его декодирования, был длиннее ...)

  • Мне повезло, что двоичные данные не содержат каких-либо "/ 'или \которые должны быть экранированы. Я не планировал этого. Но даже если бы это произошло, я, возможно, мог бы просто изменить порядок элементов в массиве, чтобы это исправить.

  • Удивительно, насколько просто это решение сравнивается с десятками других решений, через которые я прошел, прежде чем придумал это. Я экспериментировал со многими различными побитовыми кодировками, более сложными, чем этот, и мне никогда не приходило в голову, что более простой код может стоить этого просто потому, что код Perl для его декодирования будет короче. Я также пытался сжимать повторы в данных, используя переменную интерполяцию (см. Другой ответ), но с самой новой версией, которая больше не получает символов.

Timwi
источник
3

Питон, 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('/')])

Левая сторона сжата; правая сторона воспроизводится с левой стороны.

RomanSt
источник
3

Perl, 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

Как это устроено

Для объяснения того, как это работает, см. Другой ответ, в котором я отправляю то же самое в двоичном виде . Мне очень жаль, что я не генерирую снежинку Коха, просто сжимаю ее ...

Предыдущие версии

  • (359) Кодировалась вся снежинка, а не только левая половина. Пробелы были включены в битовую кодировку; пока нет длины пробега. Использовал несколько интерполированных переменных плюс @_массив, доступ к которому осуществлялся с помощью s/\d/$_[$&]/eg. Новые строки были закодированы как !.

  • (289) Первая версия, которая закодировала только левую половину снежинки.

  • (267) Первая версия, в которой использовалось кодирование длин серий для пробелов.

  • (266) Изменить ' 'на $".

  • (224) Принципиально другое сжатие, закодированное как base-64. (Теперь эквивалентно бинарной версии .)

  • (223) Понял, что я могу поместить отпечаток в последнюю подложку и таким образом сохранить точку с запятой.

Timwi
источник