С Днем Фибоначчи!

20

Фон

Сегодня (или вчера) сегодня (или было) 11/23 или день Фибоначчи! Что может быть лучше, чем приготовить торт Фибоначчи?


Примеры

3

    ii
i_i_ii_i_i 

8

              ii              
              ii              
              ii              
              ii              
              ii              
              ii              
              ii              
              ii              
            i ii i            
            i ii i            
            i ii i            
            i ii i            
            i ii i            
          i i ii i i          
          i i ii i i          
          i i ii i i          
        i i i ii i i i        
        i i i ii i i i        
      i i i i ii i i i i      
    i i i i i ii i i i i i    
i_i_i_i_i_i_i_ii_i_i_i_i_i_i_i

Вызов

Ты на самом деле не делаешь торт, только свечи, потому что я не могу сделать торт

Чтобы сделать торт, вы должны сначала получить первые n числа Фибоначчи, отсортированные по возрастанию. Высота свечи ( i) определяется значением текущего числа Фибоначчи. Свечи разделены подчеркиванием ( _).

Торт должен быть симметричным. Таким образом, свечи должны быть перевернуты и соединены.

Пример конструкции

Input: 6
First 6 Fibonacci Numbers: 1, 1, 2, 3, 5, 8
Candle heights:

          i
          i
          i
        i i
        i i
      i i i
    i i i i
i i i i i i
-----------
1 1 2 3 5 8

Output would be:
          ii
          ii
          ii
        i ii i
        i ii i
      i i ii i i
    i i i ii i i i
i_i_i_i_i_ii_i_i_i_i_i 

Справочные числа Фибоначчи

Для справки, вот первые 15 чисел Фибоначчи. В этом испытании вы начнете с 1.

1,1,2,3,5,8,13,21,34,55,89,144,233,377,610
Downgoat
источник
9
С сожалением сообщаю западному побережью Соединенных Штатов, что для большинства стран мира 11/23 закончено или почти закончено :( Это только что превратилось из кода в гольф в код
кошка,
1
@sysreq Это нормально, им просто нужно отправиться на западное побережье (мгновенно), а затем они могут наслаждаться днем ​​Фибоначчи в течение последних 5 часов (7 для Гавайев): p
Downgoat
6
Эта задача станет легендарной через 43 года (23.11.58).
Арктур
9
Через 43 года формат даты mm / dd / yy станет историей. Все разумные существа переключатся на гггг / мм / дд ... :-P
1
@sysreq Очень рекомендуется публиковать ответы в гольф на многословных языках. Конечно, вы не соревнуетесь с Pyth, но вы можете соревноваться с другими ответами на том же языке или на языках сопоставимой многословности.
Мартин Эндер,

Ответы:

2

Pyth, 31 байт

jaPJ_.ts_BuaaGks>4GtQ]\idXeJ" _

Попробуйте онлайн: демонстрация

Объяснение:

jaPJ_.ts_BuaaGks>4GtQ]\idXeJ" _   implicit: Q = input number
          u        tQ]\i          reduce the list [1, ..., Q-2], start with G=["i"]
            aGk                      append the empty string to G
           a   s>4G                  append the sum of the last 4 strings in G to G
                                  this gives ["i", "", "i", "", "ii", "", "iii",..]
       s_B                        extend the list with the reversed list
     .t                  d        pad to a rectangle with spaces and transposes
   J_                             reverse the order and assign to J
  PJ                              remove the last string of J
 a                                and append
                         XeJ" _   the last string of J with spaces replaced by "_"
j                                 print each string on a separate line
Jakube
источник
6

J, 58 байт

3 :''' i_''{~|.|:(,|.)(#&1,2#~0&=)"*}.,0,.(%-.-*:)t.1+i.y'

Пользы (%-.-*:)t. для поколения Фибоначчи. Объяснение может прийти чуть позже.

Использование:

   f=.3 :''' i_''{~|.|:(,|.)(#&1,2#~0&=)"*}.,0,.(%-.-*:)t.1+i.y'
   f 5
        ii        
        ii        
      i ii i      
    i i ii i i    
i_i_i_i_ii_i_i_i_i

Попробуйте это онлайн здесь.

randomra
источник
5

CJam, 41 39 байт

"i""_"1$ri({1$1$4$+}*]),f{Se[}W<_W%+zN*

Это печатает изрядное количество ведущих пробелов. Попробуйте онлайн в интерпретаторе CJam .

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

"i""_"1$ e# Push "i", "_", and a copy of "i".
ri(      e# Read an integer from STDIN and subtract 1.
{        e# Do that many times:
  1$     e#   Copy the last underscore.
  1$4$+  e#   Copy the last strings of i's and concatenate them.
}*       e#
]),      e# Wrap the results in an array, pop the last string, and get its length.
f{       e# For each remaining string, push the string and the length; then:
  Se[    e#   Pad the string to that length by prepending spaces.
}
W<       e# Remove the last string (underscore).
         e# We have now generated the columns of the left half of the output.
_W%+     e# Append a reversed copy (columns of right half).
z        e# Transpose rows with columns.
N*       e# Separate the rows by linefeeds.
Деннис
источник
3

TeaScript, 93 84 76 + 1 = 77 байт

+1 байт для "Входы - это числа?" флажок

r×ß(p.R((w=F(x©-F(i¬©+"i"R(F(i¬±)t¡ß(j=i<w-1?" ":"_",(A=l¿i>0?j+l:l)µ)+Av©j§

Безголовая версия:

r(x)m(#(p.R((w=F(x))-F(i+1))+"i"R(F(i+1))))t()m(#(j=i<w-1?" ":"_",(A=ls``.m(#i>0?j+l:l)j``)+Av))j`
`

Спасибо @ Vɪʜᴀɴ за советы.

intrepidcoder
источник
Вы должны быть в состоянии использовать rфункцию вместо A(x)f(0), напримерr(x)m(#
Downgoat
@ Vɪʜᴀɴ Спасибо. Что делает Array.dupe(), это не похоже на работу?
Intrepidcoder
Array.dupe был, вероятно, плохим именем, он удаляет дубликаты из массива.
Downgoat
@ Vɪʜᴀɴ Вы должны поместить сводку каждого метода в раздел имен свойств с аргументами ввода / вывода. Кроме того, Array.repeat и String.reverse тоже подойдут.
Intrepidcoder
1
@sysreq Я имел в виду безволосых, извините за путаницу.
Intrepidcoder
3

Python 2, 117 байт

a=b='i'
l=a,
exec"l+='_',b,;a,b=b,b+a;"*~-input()
for r in map(None,*l+l[::-1])[::-1]:print''.join(x or' 'for x in r)

Идея проста: создать изображение в столбцах, идущих снизу вверх, слева направо, с зеркальной правой половиной, противоположной левой. Столбцы генерируются путем повторения повторения Фибоначчи в строкахi 's, с вкраплениями _' s 'для нижней строки.

Чтобы напечатать картинку с колонками, начиная снизу, нам нужно повернуть ее, что означает перемещение и реверсирование. К сожалению, в Python нет простого способа транспонировать массив строк неравной длины. Встроенные zipобрезки до самой короткой строки. Это использует map(None,_)хитрость, но Noneвпоследствии необходимо преобразовать все в пробелы.

XNOR
источник
2

Haskell, 182 176 байт

import Data.List
f=0:scanl(+)1f
b n c s|length s<n=b n c(c:s)|0<1=s
m s=s++reverse s
c n=mapM_ putStrLn$transpose$m$map(b(f!!n)' ')$intersperse"_"$map(\x->[1..f!!x]>>"i")[1..n]

Вызов c.

( fбесстыдно похищен с /programming/232861/fibonacci-code-golf )

Лейф Виллертс
источник
Вы можете заменить flip replicate 'i'.(f!!)на \x->[1..f!!x]>>"i".
Ним
Большое спасибо! Это первый раз, когда я действительно понимаю монадический совет по игре в гольф, хотя сам пока не придумываю его. f
Понятия не имею,
1

Matlab, 172 152 байта

К сожалению, Matlab не имеет встроенной функции Фибоначчи, и управление строками немного сложное.

function t(n);f=@(n)getfield([0 1;1 1]^n,{3});m=char(flipud(bsxfun(@(a,b)(a<=f(b/2)&mod(b,2)==0)*'i',(1:f(n))',2:2*n)));m(end,2:2:end)='_';[m fliplr(m)]

С переносами строк:

function t(n);
f=@(n)getfield([0 1;1 1]^n,{3});
m=char(flipud(bsxfun(@(a,b)(a<=f(b/2)&mod(b,2)==0)*'i',(1:f(n))',2:2*n)));
m(end,2:2:end)='_';
[m fliplr(m)]
Jonas
источник
1

Рубин, 151 146 142 137 132 байт

->n{s=1,1;3.upto(n){s<<s[-1]+s[-2]};s.map!{|i|[' ']*(s[-1]-i)+[?i]*i}.transpose.map!{|a|v=a*'_ '[a.count(?i)<=>n];puts v+v.reverse}}

137 байт

->n{s=1,1;3.upto(n){s<<s[-1]+s[-2]};o=s.map{|i|[' ']*(s[-1]-i)+[?i]*i}.transpose.map{|a|v=a*' ';v+v.reverse};o[-1]=o[-1].tr' ',?_;puts o}

142 байта

->n{s=1,1;(3..n).map{s<<s[-1]+s[-2]};puts s.map{|i|[' ']*(s[-1]-i)+[?i]*i}.transpose.map{|a|v=a*' ';v+v.reverse}.tap{|c|c[-1]=c[-1].tr' ',?_}}

146 байт

->n{s=1,1;(3..n).map{s<<s[-1]+s[-2]};puts s.map{|i|[' ']*(s[-1]-i)+[?i]*i}.transpose.map{|a|v=a.join' ';v+v.reverse}.tap{|c|c[-1]=c[-1].tr' ',?_}}

151 байт

->n{s=1,1;(3..n).map{s<<s[-1]+s[-2]};puts s.map{|i|[' ']*(s[-1]-i)+['i']*i}.transpose.map{|a|v=a.join ' ';v+v.reverse}.tap{|c|c[-1]=c[-1].tr ' ', '_'}}

Ungolfed:

-> n {
  s = 1,1
  3.upto(n) {
    s << s[-1] + s[-2]
  }
  s.map! { |i|
    [' '] * (s[-1]-i) + [?i] * i
  }.
  transpose.
  map! { |a|
    v = a * '_ '[a.count(?i)<=>n]
    puts v + v.reverse
  }
}

Использование:

->n{s=1,1;3.upto(n){s<<s[-1]+s[-2]};s.map!{|i|[' ']*(s[-1]-i)+[?i]*i}.transpose.map!{|a|v=a*'_ '[a.count(?i)<=>n];puts v+v.reverse}}[8]

Выход:

              ii              
              ii              
              ii              
              ii              
              ii              
              ii              
              ii              
              ii              
            i ii i            
            i ii i            
            i ii i            
            i ii i            
            i ii i            
          i i ii i i          
          i i ii i i          
          i i ii i i          
        i i i ii i i i        
        i i i ii i i i        
      i i i i ii i i i i      
    i i i i i ii i i i i i    
i_i_i_i_i_i_i_ii_i_i_i_i_i_i_i
Васу Адари
источник
1

Python 2, 213

Сохранено 12 байтов благодаря DSM.

def f(r):
 a=b=1
 while r:yield a;a,b=b,a+b;r-=1
n=list(f(input()))
n.remove(1)
h=max(n)-1
r=1
while h:
 l='  '*(len(n)+1)+('i '*r)[:-1];print(l+l[::-1]);h-=1
 if h in n:r+=1;n.pop()
l='i_'*r+'i_i'
print l+l[::-1]

Безголовая версия.

max_height = input()
def fib(r):
    a=b=1
    while r:
        yield a
        a,b = b, a + b
        r-=1

numbers = [x for x in fib(max_height) if x>1]
highest = max(numbers) -1
rows = 1
while highest:
    line =' '*((len(numbers)+1)*2) + ' '.join('i'*rows)
    print(line + line[::-1])
    highest -= 1
    if highest in numbers:
        rows += 1
        numbers.pop()

line = '_'.join('i'*(rows+2))
print(line + line[::-1])
Морган Трепп
источник