Bir giriş verildiğinde , yandan bakıldığında, üstte iki mum bulunan nbir ASCII sanat pastası nkatmanı yazdırın . Ayrıntılar için aşağıdaki örneklere bakın.
>> cake(1)
_|_|_
| |
+-----+
>> cake(3)
_|_|_
| |
+---------+
| |
+-------------+
| |
+-------------+
...ve bunun gibi.
Yanıtlar:
i=input()
m=["+"+"-"*(i*4+1)+"+","|"+" "*(i*4+1)+"|"]
for v in range(i,1,-1):
m+=[" "*(i-v)*2+"+"+"-"*(v*4+1)+"+"," "*(i-v+1)*2+"|"+" "*((v-1)*4+1)+"|"]
m.pop()
m+=[" "*(i-1)*2+"|"+" "*5+"|"," "*(i-1)*2+" _|_|_"]
print'\n'.join(m[::-1])
Cake 2'nin eksik örneği:
_|_|_
| |
+---------+
| |
+---------+
int(input())etmek input()ve printaçıklamada, artı (daha belirgin o bir karakter şekilde çalışıp, bir sekme ise bir boşluk olarak değiştirin) birine dört boşluk değiştirebilir . Ayrıca, bayt hesabınız bir nedenle 4 çok yüksek.
@echo off
set i=
for /l %%j in (2,1,%1)do call set i= %%i%%
echo %i% _^|_^|_
set s=-----
for /l %%j in (2,1,%1)do call:l
echo ^|%s:-= %^|
echo +%s%+
exit/b
:l
echo %i%^|%s:-= %^|
set i=%i:~2%
set s=----%s%
echo %i%+%s%+
Python'dan daha mı kısa? Bir şeyler yanlış olmalı ...
Özyinelemeli bir pasta.
f=(n,i=--n,r=(n,c)=>'- '[+!c].repeat(n),p=r((i-n)*2),j=n*4+5,x=p+`+${r(j,1)}+
`)=>(n?f(n-1,i)+x:p+` _|_|_
`)+p+`|${r(j)}|
`+(n-i?'':x)
let f=(n,i=--n,r=(n,c)=>'- '[+!c].repeat(n),p=r((i-n)*2),j=n*4+5,x=p+`+${r(j,1)}+
`)=>(n?f(n-1,i)+x:p+` _|_|_
`)+p+`|${r(j)}|
`+(n-i?'':x)
console.log(f(4))>UXð×?" _|_|_",Xð×?"| |",X<U0<VXGNVXY-ð×?'+?8Y·+G'-?}'+,XY-ð×?'|?7Y·+ð×?'|,}XY-ð×?'+?8Y·+G'-?}'+,
Adnan sayesinde 14 karakter kurtardı!
Burada golf için kesinlikle bazı oda.
Bunun, her şeyi tek bir boşlukla dengelediğini unutmayın.
p=print
t=int(input())
d=4*'-'
s=' '
a='+\n'
r=(t-1)*s
p(r+' _|_|_\n'+r+'| |')
for i in range(2,t+1):b=(t-i)*s;p(b+'+-'+i*d+a+b+'| '+i*2*s+'|')
p('+-'+t*d+a)
Çok zekice değil, ama daha önce hiç bunlardan birini yapmadım. (Düzenle: gereksiz parantez kaldırıldı; bir karakter daha azaltıldı)
+K*dtyQ"_|_|_"+tK"| |"jP.iJms[*\ yt-Qd\+*+5*4d\-\+)+StQtQmXd"+-""| "J
STDIN üzerinde bir tam sayı girdisi alan ve sonucu basan bir program.
Muhtemelen burada yapılması gereken bazı golf var.
Açıklama sonra gelecek
n=>[(s=" "[R='repeat'](n-1))+" _|_|_",s+"| |",...Array(n-1),`+${"-"[R](n*4+1)}+`].map((_,i)=>_||(s=" "[R](n-i))+`+${"-"[R](i=i*4+1)}+`+`
${s}|${" "[R](i)}|`).join`
`
İlk geçiş, muhtemelen optimal değil ...
yeni yaklaşım:
echo$p=str_pad("",-2+2*$n=$argv[1])," _|_|_";for($x=" ",$b=$y="----";$n--;){$a.=$x;if($n)$b.=$y;echo"
$p| $a|
",$p=substr($p,2),"+-$b+";}
referans için eski sürüm:
$p=str_pad;for($o=["_|_|_"];$i++<$n=$argv[1];$o[]="+".$p("",($i<$n)*4+$e,"-")."+")$o[]="|".$p("",$e=$i*4+1)."|";foreach($o as$s)echo$p($s,$n*4+3," ",2),"
";
$argv. : - /
Oldukça dağınık ama işe yarıyor!
fu A(n)
let @z="Vkyjply4lpjy4hp"
exe "norm 2i+\e5i-\eo||\e5i \e".a:n."@zddl4xggd$i_|_|_"
exe "%ce ".(a:n*4+3)
endfu
Diyoruz için: call A(3)bir in boş tampon. İşlevi yüklemek için,source cake.vim
2i+<Esc>5i-<Esc> ilk satırı yazar +-----+o||<Esc>5i<Space><Esc>| |ikinci satıra eklerVkyjply4lpjy4hpmakroya kaydedilir @z- her iki çizgiyi görsel olarak seçer, onları çeker, altına yapıştırır ve 4 çizgi ve boşluk ekler.#@zbu #kez tekrar ederddl4x son çizgileri siler ve alt katmanın üst kısmına eşit hale getirmek için pastanın alt kısmına tire işareti eklerggd$i_|_|_ ilk satırı pastanın tepesiyle değiştirir %cesonra tüm pastayı alt katmanın genişliğine ortalar! !∫4*I:┌*╗1Ο;@*┐1Ο}⁴¹k┐╔2ΟΚ╚
Açıklama:
∫ } for each in 1..input inclusive, pushing counter
4* multiply by 4
I increase by 1
: duplicate; this will be used later
┌* repeat a dash pop times
╗1Ο encase them in plusses
; get the duplicate on the stacks top
@* repeat a space pop times
┐1Ο encase in vertical bars
⁴ duplicate the item below ToS - the last line
¹ wrap the stack in an array
k remove the arrays first item
┐ push "_"
╔ push "|"
2Ο encase 2 copies of the vertical bar in underscores
Κ and prepend that to the array
╚ center the array horizontally
Hücreden girdi alan A1ve VBE anında penceresine bir pasta çıkaran anonim VBE anında penceresi
For i=1To[A1]:s=Space(2*([A1]-i)):x=String(1+4*i,45):?s &IIf(i=1," _|_|_","+" &x &"+"):?s"|"Replace(x,"-"," ")"|":Next:?s"+"x"+l~4*):Z5:X{D'+'-C}:A{D'|SC}:B{X*1$N}:C];{SZX-Y/*}:D~" _|_|_"NB{XZ<}{X4+:X;AB}wA
INPUT n
?SPC(n*2-1)"_|_|_
FOR i=1TO n
s=n*2-i*2
?SPC(s)"|"SPC(i*4+1)"|
?SPC(s-2)"+"STRING$(i*4+(i=n)*4+5,45)"+
NEXT
Üst çizgiyi mumlarla yazdırın; sonra pastanın geri kalanını bir seferde iki satır yazdırın.
INPUT n
PRINT SPC(n * 2 - 1); "_|_|_"
FOR i = 1 TO n
indent = n * 2 - i * 2
PRINT SPC(indent); "|"; SPC(i * 4 + 1); "|"
PRINT SPC(indent - 2); "+"; STRING$(i * 4 + (i = n) * 4 + 5, 45); "+"
NEXT
SPC, bir PRINTifadede kullanıldığında , verilen sayıda boşluk yayar. Negatif bir argüman verildiğinde gerçeği böylece Elverişli, bu, 0 olarak davranır indent - 2olan -2son yineleme bir sorun değildir. STRING$bir sayı ve bir karakter kodu alır (burada, 45 için -) ve bu sayıyı defalarca tekrarlar. Burada, son satırın (ne zaman i=n) aksi halde olacağından daha kısa 4 tire olması gerekir.
Tavan kedisi sayesinde -5 bayt.
i,l,s;p(c,s){printf("%*c%*.*s%c\n",i-~i,c,l,l,s,c);}f(n){s=memset(malloc(5*n),45,5*n);l=1;for(i=n;i--;p('|',""))l+=4,n+~i?p(43,s):p(32,"_|_|_");p(43,s);}
i=int(input())