ハッピーフィボナッチデー!


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

9
世界のほとんどのため、11月23日を超えているか、ほとんどオーバー:(これはちょうどからなっていることを私は米国の西海岸を知らせるために後悔コードゴルフ最速のコード

1
@sysreq大丈夫、彼らは西海岸に旅行するだけで(すぐに)、最後の5時間(ハワイの場合は7)フィボナッチ日を楽しむことができます:p
Downgoat

6
この挑戦は43年(11/23/58)に伝説になるでしょう。
アークトゥルス

9
43年後、mm / dd / yyの日付形式は履歴になります。すべての知的な存在はyyyy / mm / ddに切り替えられます... :-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


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ɪʜᴀɴに感謝します。


r代わりに関数を使用できる必要がありますA(x)f(0)。例:r(x)m(#
Downgoat

@Vɪʜᴀɴありがとう。何をするのArray.dupe()か、うまくいかないようですか?
-intrepidcoder

Array.dupeはおそらく間違った名前で、配列から重複を削除します。
ダウンゴート

@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」。

下から始まる列で画像を印刷するには、それを回転する必要があります。つまり、転置と反転を意味します。残念ながら、Pythonには長さが等しくない行の配列を転置する簡単な方法がありません。組み込みzipは、最も短い行に切り捨てられます。これはmap(None,_)トリックを使用Noneしますが、その後すべてをスペースに変換する必要があります。


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ます。

/programming/232861/fibonacci-code-golffから恥知らずに盗まれた)


あなたは置き換えることができますflip replicate 'i'.(f!!)によって\x->[1..f!!x]>>"i"
nimi

まことにありがとうございます!モナドのゴルフのヒントを実際に理解するのはこれが初めてですが、まだ自分でそれらを思いついていません。どのようになど全く分からないf...まだ動作します
レイフ・Willerts

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)]

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 ' ', '_'}}

ゴルフをしていない:

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

DSMのおかげで12バイト節約されました。

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])
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.