เขียนโปรแกรมหรือฟังก์ชั่นที่ใช้จำนวนเต็มบวกและพิมพ์หรือส่งคืนสแต็คของเต่า ASCII จำนวนมากที่เต่าแต่ละตัวมีขนาดใหญ่กว่าหนึ่งตัว

โดยเฉพาะถ้าอินพุตคือ1เอาต์พุตควรเป็น:

 __
/,,\o

หากอินพุตคือ2:

  __
o/,,\
 ____
/,__,\o

หากอินพุตคือ3:

   __
  /,,\o
  ____
o/,__,\
 ______
/,____,\o

หากอินพุตคือ4:

    __
  o/,,\
   ____
  /,__,\o
  ______
o/,____,\
 ________
/,______,\o

หากอินพุตคือ5:

     __
    /,,\o
    ____
  o/,__,\
   ______
  /,____,\o
  ________
o/,______,\
 __________
/,________,\o

และในรูปแบบเดียวกันสำหรับอินพุตที่ใหญ่ขึ้น

โปรดทราบว่า:

• หัว (the o) ของเต่าล่างอยู่ทางขวาเสมอ หัวของเต่าด้านบนแล้วสลับไปมา
• ไม่มีบรรทัดใดอาจมีช่องว่างต่อท้าย
• ไม่อนุญาตให้มีช่องว่างนำหน้าฟุ่มเฟือย (เช่นด้านหลังของเต่าล่างควรอยู่ที่จุดเริ่มต้นของบรรทัด)
• อนุญาตให้ขึ้นบรรทัดใหม่ตัวเลือกหนึ่งบรรทัดต่อท้าย

รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ

แบตช์ 256 ไบต์

@set i=echo 
@%i%off
set u=
for /l %%j in (2,2,%1)do call set i=%%i%%  
set/af=%1^&1
if %f%==1 %i% __&%i%/,,\o&set u=__
for /l %%j in (2,2,%1)do call:l
exit/b
:l
set i=%i:~0,-2%
%i%  _%u%_
%i%o/,%u%,\
%i% __%u%__
%i%/,_%u%_,\o
set u=__%u%__

โปรดทราบว่าบรรทัดที่ 1 มีช่องว่างต่อท้ายและบรรทัดที่ 4 มีช่องว่างต่อท้ายสองช่อง iดังนั้นจึงมีechoคำสั่งที่มีจำนวนของการเยื้องที่เหมาะสมสำหรับเต่าแต่ละตัว ในขณะเดียวกันuมีจำนวนขีดล่างในเต่าอื่น เต่าแปลกหน้าชั้นนำนั้นใส่ตัวเป็นพิเศษจากนั้นเต่าที่เหลือจะถูกส่งออกเป็นคู่

C, 131 ไบต์

i,j;f(n){char _[3*n];memset(_,95,3*n);for(i=n;i--;printf("%*.*s\n%*s/,%.*s,\\%s\n",j+n+1,j+j,_,i,"o"+1-i%2,j+j-2,_,"o"+i%2))j=n-i;}

ลองออนไลน์

กำหนดฟังก์ชั่นที่พิมพ์เต่า

การใช้ความกว้างและตัวระบุความแม่นยำอย่างไม่ถูกต้องเป็นการละเมิดอย่างหนักเพื่อให้ได้ระยะห่างและการขีดล่างซ้ำ เต่าแต่ละตัวจะถูกพิมพ์โดยใช้printfสายเดียว:

printf("%*.*s\n%*s/,%.*s,\\%s\n",j+n+1,j+j,_,i,"o"+1-i%2,j+j-2,_,"o"+i%2)

ฉันยังมีรุ่นที่แตกต่างกันซึ่งมีขนาด 144 ไบต์เมื่อลบช่องว่าง:

c,i;f(n){for(i=n;i--;){
    char*p=" _\n o/,_,\\o\n";
    int C[]={i+1,c=n+n-i-i,1,i&~1,i%2,1,1,c-2,1,1,1-i%2,1};
    for(c=0;p[c];)C[c]--?putchar(p[c]):++c;
}}

Ruby, 100 ไบต์

โซลูชันแบบเรียกซ้ำ ลองออนไลน์!

f=->n,i=1{f[n-1,i+1]if n>1;puts' '*i+?_*n*2,"%#{i-1}s/,#{?_*2*~-n},\\"%(i<2?'':'o '[i%2])+' o'[i%2]}

05AB1E, 45 ไบต์

Lvð¹y-©>ׄ__y×UXJ,„/,X¨¨„,\J'o®ÉiìëJ}ð®®É-×ì,

ลองออนไลน์

V , 57, 53 49 ไบต์

i ³_
/,_,\oÀñHyjí_/___
ëPhjI ñdjí___
òkk$x^PXkk

เนื่องจากสิ่งนี้มีอักขระที่ไม่สามารถพิมพ์ได้นี่คือ hexdump:

00000000: 6920 b35f 0a2f 2c5f 2c5c 6f1b c0f1 4879  i ._./,_,\o...Hy
00000010: 6aed 5f2f 5f5f 5f0a eb50 1668 6a49 20f1  j._/___..P.hjI .
00000020: 646a ed5f 5f5f 0af2 6b6b 2478 5e50 586b  dj.___..kk$x^PXk
00000030: 6b                                       k

ลองออนไลน์!

คำอธิบาย:

i ³_\n/,_,\o<esc>       "Insert the original turtle with one extra underscore

Àñ                      "Arg1 times:
  Hyj                   "  Go the the beginning of the file, and yank a turtle
     í_/___             "  Extend the lenght of every turtle by two
ëP                      "  Move to the beginning of the file again, and paste the turtle we yanked
  <C-v>hjI              "  Move this turtle one to the right
           ñ            "Stop looping.

dj                      "Delete a turtle (since we have one too many)
  í___                  "Make every turtle shorter (since they are all too long)

ò                       "Recursively:
 kk                     "  Move up two lines
   $x                   "  Delete the last character on this line (an 'o')
     ^P                 "  And paste this 'o' at the beginning of the line
       X                "  Remove one space
        kk              "  Move up two lines again

Perl, 92 ไบต์

รหัส 1 91 -nไบต์

ต้อง-Eไม่มีค่าใช้จ่ายเพิ่มเติม

for$i(1..$_){say$"x$_._,$v=_ x(--$i*2),_.$/.$"x(--$_-1),$_%2?o:$"x!!$_,"/,$v,\\",$_%2?"":o}

การใช้

perl -nE 'for$i(1..$_){say$"x$_._,$v=_ x(--$i*2),_.$/.$"x(--$_-1),$_%2?o:$"x!!$_,"/,$v,\\",$_%2?"":o}' <<< 3
   __
  /,,\o
  ____
o/,__,\
 ______
/,____,\o

ขอบคุณ@Dadaสำหรับ -9 ไบต์ด้วยการทำงานซ้ำของเขา!

Cheddar , 105 ไบต์

n->(|>n).map(i->(1-i%2)*"o"+"\\,"+(n-i-1)*"__"+",/"+i%2*"o"+i/2*"  "+"\n"+(n-i)*"__"+(i+1)*" ").vfuse.rev

จอประสาทตา 97 91 88 ไบต์

จำนวนไบต์ถือว่าการเข้ารหัส ISO 8859-1

.+
  $&$*_$&$*_o
+`^( *?)(.)__(_+)(.)
$1 $4$3$2¶$&
 (.)__(_*) ?
  __$2¶$%`$1/,$2,\
Rm`^ 

ลองออนไลน์!

Python 2, 116 ไบต์

m=input()
for i in range(m):r=m-i;b=r%2;h='o';a='__';u=i*a;s=' '*r;print s+u+a+'\n'+s[:b-2]+h*-~-b+"/,"+u+",\\"+b*h

R , 150 ไบต์

a=function(x,y=1){d=x-y;t=d%%2;cat(rep(" ",d+1),rep("_",2*y),"\n",rep(" ",d-t),"o"[t],"/,",rep("_",2*y-2),",\\","o"[!t],"\n",sep="");if(y<x)a(x,y+1)}

หมดจด (เพิ่มไบต์)

a=function(x,y=1){
     d=x-y
     t=d%%2
     cat(rep(" ",d+1),rep("_",2*y),"\n",rep(" ",d-t),"o"[t],"/,",rep("_",2*y-2),",\\","o"[!t],"\n",sep="")
     if(y<x)a(x,y+1)
}

โครงสร้างพื้นฐานเรียกซ้ำตัวเอง - บอกตัวเองทั้งหมายเลขสุดท้ายที่จะเรียกและระดับปัจจุบัน เริ่มต้นด้วยค่าเริ่มต้นสำหรับ y = 1 ดังนั้นจึงต้องการเพียงหนึ่งตัวแปรสำหรับการโทรเริ่มต้น กำหนดสองค่าอย่างรวดเร็วที่ใช้บ่อย จากนั้นมันจะทำซ้ำทุกอย่างตามจำนวนครั้งที่จำเป็น

"o"[t],"o"[!t]

แต่ละแบบทดสอบเหล่านี้โดยปริยายว่าจะเพิ่มหัวไปทางขวาหรือซ้ายและวางไว้อย่างเหมาะสม

TSQL, 189 ไบต์

ขณะนี้มีการยอมรับอินพุต - ด้วย @PatrickRoberts

DECLARE @i INT=##i##,@ INT=0a:PRINT SPACE(@i-@)+REPLICATE('__',@+1)+'
'+SPACE((@i-@-1)/2*2)+IIF((@i-@-1)%2=1,'o/,','/,')+REPLICATE('__',@)+IIF((@i-@-1)%2=0,',\o',',\')SET
@+=1IF @i>@ GOTO a

ซอ

C, 328 238 234 215 ไบต์:

B;M(w,j,R){j=w;if(j<=B){char b[j*2-1],k[j*2+1];b[j*2-2]=k[j*2]=0;memset(b,95,j*2-2);memset(k,95,j*2);R=(B+1-j)%2;printf("%*s\n%*s/,%s,\\%s\n",j*2+B+1-j,k,B-j,R?"":"o",b,R?"o":"");j++;M(j);}}main(){scanf("%d",&B);M(1);}

การใช้งานแบบเรียกซ้ำโดยใช้การจัดรูปแบบสตริงจำนวนมากและmemsetฟังก์ชันbuiltin จะพยายามเล่นกอล์ฟให้มากขึ้นเรื่อย ๆ เท่าที่จะทำได้

C มันออนไลน์! (Ideone)

Java 1.7, 238 ไบต์

ชุดของทั้งสองฟังก์ชั่น: แรกวนซ้ำเหนืออินพุต (# ของเต่า) ที่สองอำนวยความสะดวกในการสร้างลำดับของตัวละครซ้ำซ้ำ recursively (เช่นช่องว่างชั้นนำด้านหลังและท้องของเต่า)

String f(int n){String s="";for(int i=-1,x=-2;++i<n;){int m=(i+n)%2;s+=r(' ',n-i)+r('_',i*2+2)+"\n"+r(' ',n-i-(m==1?1:2))+(m==0?"o":"")+"/,"+r('_',x+=2)+",\\"+(m==1?"o":"")+"\n";}return s;}String r(char c,int n){return n>0?c+r(c,--n):"";}

Ungolfed:

class C {
    public static void main(String[] a) {
        System.out.println(new T().f(1));
        System.out.println(new T().f(2));
        System.out.println(new T().f(3));
        System.out.println(new T().f(4));
        System.out.println(new T().f(5));
    }

    static class T {

        String f(int n) {
            String s = "";
            for (int i = -1, x = 0; ++i < n; x+=2) {
                int m = (i + n) % 2;
                s += r(' ', n - i) + r('_', i * 2 + 2) + "\n" + r(' ', n - i - (m == 1 ? 1 : 2)) + (m == 0 ? "o" : "") + "/," + r('_', x) + ",\\" + (m == 1 ? "o" : "") + "\n";
            }
            return s;
        }

        String r(char c, int n) {
            return n > 0 ? c + r(c, --n) : "";
        }

    }

}

เรียกใช้! (Ideone)

ฉันคิดว่ามันโอเคที่จะแยกคำจำกัดความของชั้นเรียนจากการนับไบต์

ฉันอาจจะสามารถเล่นกอล์ฟนี้อีกเล็กน้อยโดยการย้อนกลับคำสั่งวนซ้ำ (สร้างจากเต่าล่างขึ้น) และ / หรือโดยเวียนซ้ำอย่างเต็มที่เหมือนคำตอบอื่น ๆ

หมายเหตุถึงตัวเอง: Java ขาดชวเลขในตัวจริง ๆ เพื่อทำซ้ำอักขระ n ...

งูหลาม 137 120 113 110 ไบต์

m=input()
for i in range(m):p=m-i;b=p%2;print' '*p+'__'*-~i+'\n'+' '*(p-2+b)+'o'*-~-b+'/,'+'__'*i+',\\'+'o'*b

Ungolfed:

m=input()
for i in range(m):
  p=m-i                              // Abstract m-i for a few bytes
  b=p%2                              // Determines every other turtle from bottom

  print' '*p + '__'*-~i + '\n' +    // The top of the turtle
       ' '*(p-2+b) +                // Leading spaces (-1 for every other turtle)
       '0'*-~-b +                   // Add a leading head to every other turtle
       '/,'+'__'*i +                // Body of the turtle
       ',\\'+'0'*b                  // Add a trailing head to every other turtle

หัวแข็ง

F #, 218 207 202 196 187 ไบต์

โกนส่วนใหญ่ของไบต์เหล่านี้ด้วยการฝังตัวแปร

let R=String.replicate
let t n=let rec L i r k=if i<n then L(i+1)(R(k+i%2+1)" "+R((n-i)*2)"_"+"\n"+R k" "+R(i%2)"o"+"/,"+R(n*2-i*2-2)"_"+",\\"+R(1-i%2)"o"+"\n"+r)(k+i%2*2)else r in L 0""0

ตรรกะถูกขโมยลงคอจากคำตอบของ Pythonนี้อย่างไร้ยางอาย

ลองออนไลน์

CJam , 88 ไบต์

ri_[S\_'_*_+N+\O\"/,"\('_*_++','\+'o]\({_[(S+\(2>\(S\+)'O^c+\(-2<\(\('o\{;O}&\;]}*]-1%N*

ทำให้เต่าที่ใหญ่ที่สุดเป็นอันดับแรก (เพราะไม่เช่นนั้นเต่าอื่น ๆ จะยืนอยู่บนอะไร) แล้วค่อยลดขนาดลงจนกว่าจะมีขนาดเล็กที่สุด ทำงานสำหรับจำนวนเต็มใด ๆ ที่มากกว่า 0

ลองออนไลน์!

Python 2.7, 255 238 236 ไบต์

แม้ว่าสิ่งนี้จะหายไปกับโซลูชัน Python 2 อื่น ๆ ทั้งสองฉันชอบวิธีเรียกซ้ำของฉัน:

def r(s,p):
 for(a,b)in p:s=a.join(s.split(b))
 return s
def t(w):
 i='_'*2*w;s='\n __%s\n/,%s,\o'%(i,i)
 if w:s=r(t(w-1),[('\n ','\n'),('Z/',' /'),('\\Z\n','\\\n'),(' /','o/'),('\\','\\o'),('o','Z')])+s
 return s
print t(input()-1)[1:]

edit1: ปล่อยสองสามไบต์โดยกำจัดบางส่วนที่แทนที่

edit2: โกน 2 ไบต์โดยบันทึกขีดล่างเป็นตัวแปร

Python 2, 147 ไบต์

n=input()
s=' ';r=[];i=k=0
while i<n:a=i%2;r=[s*k+s*a+s+'_'*(n-i)*2+s,s*k+'o'*a+'/,'+'_'*(n-i-1)*2+',\\'+'o'*(1-a)]+r;k+=a*2;i+=1
print'\n'.join(r)

ลองออนไลน์

Python 2.7, 139 114 113 130 ไบต์

ฉันชอบแนวทางแบบวนซ้ำของ Iguanodon ดังนั้นนี่จึงเป็นความพยายามที่สั้นกว่าเล็กน้อย

def t(n):
 if n>1:t(n-1)
 a=i-n;b=(a+1)%2;print' '*(a+1)+'__'*n+'\n'+' '*(a-1+b)+'o'*(not b)+'/,'+'__'*(n-1)+',\\'+'o'*b
i=input()
t(i)

แก้ไข

อันยิ่งใหญ่25 26 9 ไบต์เล่นกอล์ฟเนื่องจากเคล็ดลับที่ยอดเยี่ยมจากแตงโมที่ถูกทำลาย ขอบคุณมาก! คิดว่าอาจเป็นคำตอบที่สั้นที่สุดของ Python ในขณะนี้ :-)

def t(n):
 if n>1:t(n-1)
 a=i-n;b=-~a%2;print' '*-~a+'__'*n+'\n'+' '*(a-1+b)+'o'*-~-b+'/,'+'__'*~-n+',\\'+'o'*b
i=input()
t(i)

PowerShell , 105 100 97 87 85 84 ไบต์

^{-21 bytes ขอบคุณ mazzy, คนบ้า}

"$args"..1|%{' '*$_--+($m='__'*$i++)+'__'
' '*($_-$_%2)+("/,$m,\o","o/,$m,\")[$_%2]}

ลองออนไลน์!

เปลี่ยนตัวแปรอย่างชาญฉลาดโดยใช้$_--เพื่อหลีกเลี่ยงการใช้($_+1)บล็อกซ้ำเพื่อบันทึกหลายไบต์ นอกจากนี้ยังแปลงอาร์กิวเมนต์เดี่ยวเป็นสตริงซึ่งจะส่งไปยัง int เมื่อใช้ในช่วงเพื่อวนซ้ำผ่านจำนวนเต่า เคล็ดลับที่ใหญ่ที่สุดคือตอนนี้มีระยะห่างระดับที่ 2 ของเต่าเพิ่มขึ้นทุกแถวอื่น ๆ โดยการลบ$_%2 (เช่น 0 ถ้าแม้, 1 ถ้าแปลก) จาก row_count ปัจจุบัน

มิฉะนั้นเป็นคณิตศาสตร์ดัชนีจำนวนมากเพื่อให้ได้จำนวนที่เหมาะสม_และรวมถึงตัวนับความล่าช้าในรูปแบบ$i++และตอนนี้มีเพียงดัชนีรายการเดียวที่จะวางหัวไว้ในด้านที่ถูกต้อง

ES6 (JavaScript) 140 ไบต์

รหัส

T=(i,h=0,p=1,R="repeat")=>(i>1?T(i-1,~h,p+1)+"\n":"")+" "[R](p)+'--'[R](i)+"\n"+" "[R](p-1+h)+(h?"o":"")+"/,"+'__'[R](i-1)+",\\"+(!h?"o":"")

ทดสอบ

console.log(T(5));

     --
    /,,\o
    ----
  o/,__,\
   ------
  /,____,\o
  --------
o/,______,\
 ----------
/,________,\o

Canvas ขนาด 26 ไบต์

╷_×,×ｌ_×∔/×║o×⇵↔⁸¹－［  ×↔｝］

ลองที่นี่!