ความท้าทายของคุณคือการแปลงเศษส่วนเป็นรูปแบบเศษส่วนต่อเนื่อง

อินพุต : เศษส่วนอาจป้อนเข้าในรูปแบบใด ๆ รวมถึง (แต่ไม่ จำกัด เฉพาะ)

• สตริง: "7/16"
• รายการ: {7, 16}, (7, 16), [7, 16]
• คู่ที่เรียบง่ายสั่ง: 7 16
• ฟังก์ชั่น: f [7,16]

เอาท์พุท : เศษส่วนต่อเนื่องใน 2D โดยมีเศษส่วนแนวนอนคั่นตัวเศษจากส่วน มีเพียงเศษส่วนต่อเนื่องที่มีตัวเลขเท่ากับ 1 เท่านั้นที่ถูกต้อง ไม่จำเป็นต้องทำให้ขนาดตัวอักษรแตกต่างกันไปตามความลึก ศูนย์นำหน้า (สำหรับเศษส่วนที่เหมาะสม) เป็นทางเลือก

ความลึก : รหัสของคุณจะต้องสามารถแสดงความลึกอย่างน้อย 8 ระดับ

เกณฑ์การชนะ : รหัสที่สั้นที่สุดชนะ คุณต้องมีกรณีทดสอบหลายรายการที่แสดงอินพุตและเอาต์พุต

ตัวอย่างทดสอบ (อินพุตตามด้วยเอาต์พุต)

5/4

5/3

5/7

9/16

89/150

Mathematica, 40 36 ตัวอักษร

f=If[⌊#⌋≠#,⌊#⌋+"1"/#0[1/(#-⌊#⌋)],#]&

ตัวอย่าง:

f[89/150]

เอาท์พุท:

Python 2, 158 155 147 142

a,b=input()
c=[]
while b:c+=[a/b];a,b=b,a%b
n=len(c)
while b<n-1:print'  '*(n+b),'1\n',' '*4*b,c[b],'+','-'*(4*(n-b)-7);b+=1
print' '*4*b,c[b]

ทดสอบ:

$ python cfrac.py
(89,150)
                 1
 0 + -------------------------
                   1
     1 + ---------------------
                     1
         1 + -----------------
                       1
             2 + -------------
                         1
                 5 + ---------
                           1
                     1 + -----
                             1
                         1 + -
                             2

Python 2, alt รุ่น 95

โดยทั่วไปพอร์ตคำตอบของ breadbox ผลลัพธ์ที่ปลอดภัยยิ่งขึ้น

a,b=input();i=2
while a%b:print'%*d\n%*d + ---'%(i+5,1,i,a/b);a,b=b,a%b;i+=5
print'%*d'%(i,a/b)

ทดสอบ:

$ python cfrac2.py
(98,15)
      1
 6 + ---
           1
      1 + ---
                1
           1 + ---
                7

XSLT 1.0

ฉันคิดว่าการแสดงเศษส่วนด้วย HTML เป็นเรื่องดีดังนั้นนี่คือโซลูชัน XSLT

<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 
                              xmlns:msxsl="urn:schemas-microsoft-com:xslt" >
  <xsl:template match="/f">
    <xsl:variable name="c" select="floor(@a div @b)"/>
    <xsl:variable name="next">
      <f a="{@b}" b="{@a mod @b}"/>
    </xsl:variable>
    <table>
      <tr>
        <td valign="top" rowspan="2" style="padding-top:12px">
          <xsl:value-of select="$c"/>+
        </td>
        <td align="center" style="border-bottom:1px solid black">1</td>
      </tr>
      <tr>
        <td>
          <xsl:apply-templates select="msxsl:node-set($next)"/>
        </td>
      </tr>
    </table>
  </xsl:template>
  <xsl:template match="/f[@a mod @b=0]">
    <xsl:value-of select="@a div @b"/>
  </xsl:template>
</xsl:stylesheet>

หากต้องการทดสอบให้บันทึก xslt เป็น fraction.xslt และเปิดไฟล์ต่อไปนี้ใน IE:

<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet  href="fraction.xslt" type="text/xsl"?>
<f a="89" b="150"/>

Ruby, 175 (พร้อมศิลปะ ASCII) หรือ 47 (ไม่รวม)

ไม่มี ASCII, 47

n,d=eval gets
while d!=0
puts n/d
n,d=d,n%d
end

เนื่องจากทับทิมไม่สามารถทำกราฟิกแบบนี้ได้ฉันจึงเอาท์พุทตัวเลขสีน้ำเงินในตัวอย่างของคุณ

c:\a\ruby>cont
[5,4]
1
4

c:\a\ruby>cont
[5,3]
1
1
2

c:\a\ruby>cont
[5,7]
0
1
2
2

c:\a\ruby>cont
[9,16]
0
1
1
3
2

c:\a\ruby>cont
[89,150]
0
1
1
2
5
1
1
2

ด้วยศิลปะ ASCII, 181 178 175

n,d=eval gets
a=[]
n,d=d,n%d,a.push(n/d)while d!=0
i=0
j=2*a.size-3
k=a.size-2
a.map{|x|puts' '*i+"#{x}+"+' '*k+?1
i+=2
k-=1
puts' '*i+?-*j
j-=2}rescue 0
puts' '*i+a.last.to_s

ว้าวศิลปะ ASCII นั้นใช้รหัสจำนวนมากและฉันก็ยิ่งชั่วร้ายและใช้rescue 0: P ตัวอย่าง:

c:\a\ruby>cont
[89,150]
0+      1
  -------------
  1+     1
    -----------
    1+    1
      ---------
      2+   1
        -------
        5+  1
          -----
          1+ 1
            ---
            1+1
              -
              2

Sage Notebook, 80

c=continued_fraction(n)
LatexExpr('{'+'+\\frac{1}{'.join(map(str,c))+'}'*len(c))

ที่นี่nสามารถเป็นอะไรก็ได้ Sage สามารถประมาณโดย / ลอยจำนวนจุดที่มีเหตุผล ความแม่นยำเริ่มต้นเป็น 53 บิตเว้นแต่เป็นn Rationalต้องรัก MathJax

C, 119 ตัวอักษร

n,d,r;main(i){for(scanf("%d%d",&n,&d);r=n%d;n=d,d=r,i+=5)
printf("%*d\n%*d + ---\n",i+5,1,i,n/d);printf("%*d\n",i,n/d);}

นี่คือตัวอย่างของผลลัพธ์:

$ echo 15 98 | ./cfrac
     1
0 + ---
          1
     6 + ---
               1
          1 + ---
                    1
               1 + ---
                    7
$ echo 98 15 | ./cfrac
     1
6 + ---
          1
     1 + ---
               1
          1 + ---
               7
$ echo 98 14 | ./cfrac
7

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

ตกลงนี่เป็นรุ่นที่ยาวกว่ามาก (247 ตัวอักษร) ซึ่งทำการฟอร์แมตเต็มรูปแบบของเอาต์พุต:

c,h,i,j,n,d,w[99];char s[99][99];main(r){for(scanf("%d%d",&n,&r);d=r;n=d)
h+=w[c++]=sprintf(s[c],"%d + ",n/d,r=n%d);for(;j+=w[i],i<c-1;puts(""))
for(printf("%*d\n%*s",j+(r=h-j)/2,1,j,s[i++]);--r;printf("-"));
s[i][w[i]-2]=0;printf("%*s\n",j-1,s[i]);}

ตัวอย่างบางส่วนของผลลัพธ์:

$ echo 89 150 | ./cfr
                 1
0 + ---------------------------
                   1
    1 + -----------------------
                     1
        1 + -------------------
                       1
            2 + ---------------
                         1
                5 + -----------
                           1
                    1 + -------
                             1
                        1 + ---
                             2 
$ echo 151 8919829 | ./cfr
                 1
0 + ----------------------------
                     1
    59071 + --------------------
                       1
            1 + ----------------
                         1
                2 + ------------
                           1
                    1 + --------
                             1
                        1 + ----
                             21 
$ echo 293993561 26142953 | ./cfr
               1
11 + ---------------------
                 1
     4 + -----------------
                   1
         14 + ------------
                       1
              4410 + -----
                      104 

APL (78)

{(v↑' '⍪⍉⍪⍕⍺),(' +'↑⍨v←⊃⍴x),x←('1'↑⍨⊃⌽⍴v)⍪v←'─'⍪⍕⍪⍵}/⊃{⍵≤1:⍺⋄a w←0⍵⊤⍺⋄a,⍵∇w}/⎕

ตัวอย่าง:

      {(v↑' '⍪⍉⍪⍕⍺),(' +'↑⍨v←⊃⍴x),x←('1'↑⍨⊃⌽⍴v)⍪v←'─'⍪⍕⍪⍵}/⊃{⍵≤1:⍺⋄a w←0⍵⊤⍺⋄a,⍵∇w}/⎕
⎕:
      89 150
   1             
 0+───────────── 
     1           
   1+─────────── 
       1         
     1+───────── 
         1       
       2+─────── 
           1     
         5+───── 
             1   
           1+─── 
               1 
             1+─ 
               2 

Mathematica, 77

Fold[#2+1/ToString[#1]&,First[#1],Rest[#1]]&[Reverse[ContinuedFraction[#1]]]&

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

Perl 128 114 ตัวอักษร

($a,$b)=split;$_=" "x7;until($b<2){$==$a/$b;($a,$b)=($b,$a%$b);$_.="1\e[B\e[7D$= + ---------\e[B\e[4D"}$_.="$a\n"

แต่เนื่องจากการใช้ตำแหน่งคอนโซลคุณต้องล้างคอนโซลตามลำดับก่อนเรียกใช้:

clear
perl -pe '($a,$b)=split;$_=" "x7;until($b<2){$==$a/$b;($a,$b)=($b,$a%$b);$_.=
"1\e[B\e[7D$= + ---------\e[B\e[4D"}$_.="$a\n"' <<<$'5 7 \n189 53 \n9 16 \n89 150 '

เอาท์พุท:

       1
 0 + ---------
          1
    1 + ---------
             1
       2 + ---------
                2
       1
 3 + ---------
          1
    1 + ---------
             1
       1 + ---------
                1
          3 + ---------
                   1
             3 + ---------
                      2
       1
 0 + ---------
          1
    1 + ---------
             1
       1 + ---------
                1
          3 + ---------
                   2
       1
 0 + ---------
          1
    1 + ---------
             1
       1 + ---------
                1
          2 + ---------
                   1
             5 + ---------
                      1
                1 + ---------
                         1
                   1 + ---------
                            2

โพสต์แรก: 128 ตัวอักษร

($a,$b)=split;$c=7;while($b>1){$==$a/$b;($a,$b)=($b,$a%$b);printf"%s1\n%${c}d + %s\n"," "x($c+=5),$=,"-"x9}printf" %${c}d\n",$=

Splitted สำหรับcut'n paste :

perl -ne '($a,$b)=split;$c=7;while($b>1){$==$a/$b;($a,$b)=($b,$a%$b);printf
"%s1\n%${c}d + %s\n"," "x($c+=5),$=,"-"x9}printf" %${c}d\n",$a' \
    <<<$'5 7 \n189 53 \n9 16 \n89 150 '

จะทำให้:

            1
      0 + ---------
                 1
           1 + ---------
                      1
                2 + ---------
                      2
            1
      3 + ---------
                 1
           1 + ---------
                      1
                1 + ---------
                           1
                     3 + ---------
                                1
                          3 + ---------
                                2
            1
      0 + ---------
                 1
           1 + ---------
                      1
                1 + ---------
                           1
                     3 + ---------
                           2
            1
      0 + ---------
                 1
           1 + ---------
                      1
                1 + ---------
                           1
                     2 + ---------
                                1
                          5 + ---------
                                     1
                               1 + ---------
                                          1
                                    1 + ---------
                                          2

เหมือนกันโดยใช้ LaTeX:

perl -ne 'END{print "\\end{document}\n";};BEGIN{print "\\documentclass{article}\\pagestyle".
  "{empty}\\begin{document}\n";};($a,$b)=split;$c="";print "\$ $a / $b = ";while($b>1){$==$a
  /$b;($a,$b)=($b,$a%$b);printf"%s + \\frac{1}{",$=;$c.="}";}printf"%d%s\$\n\n",$a,$c'  \
   <<<$'5 7 \n189 53 \n9 16 \n89 150 ' >fracts.tex

pslatex fracts.tex 

dvips -f -ta4 <fracts.dvi |
  gs -sDEVICE=pnmraw -r600 -sOutputFile=- -q -dNOPAUSE - -c quit |
  pnmcrop |
  pnmscale .3 |
  pnmtopng >fracts.png

Perl: 140 , 133 121 ตัวอักษร

($a,$b)=<STDIN>;while($b>1)
{$g=$i+++4;print" "x$g."1\n"." "x$i,int($a/$b)."+---\n";($a=$b)=($b,$a%$b)}
print" "x$g."$a\n"

ตัวอย่าง:
#perl fraction.pl
5
7

   1
0+---
    1
 1+---
     1
  2+---
     2

มีดโกนใบบน Firefox, 108 127

%r=(i,n,d)=>
    mn"#{n/d|0}"
    if i<8&&n%d
        mo"+"
        mfrac
            mn"1"
            me%r(i+1,d,n%d)
math%[a,b]=data;r(0,a,b)

พร้อมท์เจ็บที่นั่นจริงๆ ...โอ้คุณหมายถึงฉันจะเลือก? ตกลงมันเป็นรายการ อย่างไรก็ตามขอให้โชคดีในการดำเนินการนี้

ภาษาของ Game Maker (Script), 61 71

a=argument0;b=argument1;while b!=0{c+=string(a/b)a,b=b,a mod b}return c

คอมไพล์ด้วยตัวแปร uninitialized 0ทั้งหมดเป็น

สมมติว่าตัวเลขอินพุตเป็น co-prime เรียกใช้ฟังก์ชันกระบวนการนี้ด้วยตัวเศษและส่วน มันสามารถไปที่ความลึกใด ๆ จนกว่าจะพบรูปแบบต่อเนื่องไม่ จำกัด

เขียนใน JAVA (238 ตัวอักษร)

String space = "";
private void process(int n, int d) {
    System.out.println(space+(n/d)+" + 1");
    space += "    ";
    System.out.println(space+"------");
    if((n % d)==1)
        System.out.println(space+d);
    else
        process(d,(n % d));
}

กระบวนการ (89150);

0 + 1
    ------
    1 + 1
        ------
        1 + 1
            ------
            2 + 1
                ------
                5 + 1
                    ------
                    1 + 1
                        ------
                        1 + 1
                            ------
                            2

กระบวนการ (973,13421);

0 + 1
    ------
    13 + 1
        ------
        1 + 1
            ------
            3 + 1
                ------
                1 + 1
                    ------
                    5 + 1
                        ------
                        3 + 1
                            ------
                            1 + 1
                                ------
                                1 + 1
                                    ------
                                    4

K, 136

{-1@((!#j)#\:" "),'j:(,/{(x,"+ 1";(" ",(2*y)#"-"),"\t")}'[a;1+|!#a:$-1_i]),$*|i:*:'1_{(i;x 2;x[1]-(i:x[1]div x 2)*x@2)}\[{~0~*|x};1,x];}

.

k)f:{-1@((!#j)#\:" "),'j:(,/{(x,"+ 1";(" ",(2*y)#"-"),"\t")}'[a;1+|!#a:$-1_i]),$*|i:*:'1_{(i;x 2;x[1]-(i:x[1]div x 2)*x@2)}\[{~0~*|x};1,x];}
k)f[5 4]
1+ 1
  --
  4

k)f[5 3]
1+ 1
  ----
  1+ 1
    --
    2

k)f[5 7]
0+ 1
  ------
  1+ 1
    ----
    2+ 1
      --
      2

k)f[9 16]
0+ 1
  --------
  1+ 1
    ------
    1+ 1
      ----
      3+ 1
        --
        2

k)f[89 150]
0+ 1
  --------------
  1+ 1
    ------------
    1+ 1
      ----------
      2+ 1
        --------
        5+ 1
          ------
          1+ 1
            ----
            1+ 1
              --
              2