9

您的挑战是将分数转换为其连续的分数形式。

输入：分数可以任何格式输入，包括（但不限于）

字符串：“ 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 八百九十二分之五十

code-golf rational-numbers

— 戴维
source

您必须走多深的标准是什么？例如，为什么我们不能只0 + 89 / 250为最后一个做？

— 门把手

我以为唯一可接受的分子是1。我将其添加。

— DavidC

好的，没有太多的数学背景:)维基百科提供了帮助。无法以这种格式显示内容的语言怎么样？如果我们做这样的事可以0 + 1 / (1 + 1 / (1 + 1 / (2 + 1 / (3 + 1 / (1 + 1 / (1 + 1 / (2)))))))吗？没有括号怎么办？或者，如果我们仅显示蓝色数字，例如0 1 1 2 5 1 1 2？

— 门把手

1

您的表示法在数学上似乎是正确的。但是挑战的主要目的是找到一种以列和行格式显示分数的方法（我在上面将其简称为2D）。

— DavidC

5

Mathematica，40个36个字符

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

例：

f[89/150]

输出：

输出量

— Alephalpha
source

10

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，替代。版本95

基本上是面包箱的答案。输出更安全。

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

— 沙恩
source

1

+1好主意！如果产生大于9的数字，则存在问题。检查，例如40,3作为输入。

— Sven Hohenstein 2013年

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

89/150

— 丹科·杜比奇
source

我喜欢这个解决方案。干得好！

— Cruncher

4

Ruby，175（具有ASCII文字）或47（无）

没有ASCII艺术，47

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

由于Ruby不能真正做到这样的图形，因此我仅在示例中输出蓝色数字。

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

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

— 门把手
source

@DavidCarraher好，那就行了。编辑

— 门把手

您输出部分商。尽管它们对于制定连续分数至关重要，但仅是要求的一部分。

— DavidC

@DavidCarraher我想我可以尝试某种ASCII艺术...在Ruby中确实没有太多方法可以做到这一点。

— 门把手

@DavidCarraher好的，我必须离开，但是我将尽快对小数进行ASCII表示。

— 门把手

大。我期待看到您的努力结果。

— DavidC

4

鼠尾草笔记本，80

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

这里n可以是任何东西贤者可以通过理性/浮点数近似。除非n是，否则默认精度为53位Rational。要爱MathJax。

在此处输入图片说明

— 布比
source

4

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

— 面包箱
source

哇，我们可能会以一种不太可能的语言中的一种赢家赢得CG！令人印象深刻！:-)

— 门把手

3

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

— 马里纳斯
source

2

Mathematica，77岁

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

刚刚为此学习了Mathematica。为此需要花费很长的时间。

— 黄昏
source

2

Perl 128114个字符

($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",$=

分裂为cut'n贴：

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

乳胶图片

— 豪里
source

1

的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

— 阿文兹
source

0

Firefox上的Razor Leaf，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)

~~提示真的很伤人……~~哦，你的意思是我可以选择？好吧，这是一张清单。无论如何，祝您好运顺利运行。

— Ry-
source

0

游戏制作者语言（脚本），61 71

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

将所有未初始化的变量编译为0。

— 添泰
source

1

这输出什么吗？而且，这似乎是错误的；您要在数字后面附加一个字符串。你尝试了吗？

— 门把手

@Doorknob您是对的，我是想将其提供给c。

— Timtech

它仍然不输出任何东西...

— 门把手

@Doorknob是的，它不返回任何内容，并且我遇到了一些语法错误。现在应该返回正确的值。

— Timtech

0

假设输入数字是互质的，请使用分子和分母来调用此过程函数。它可以走到任何深度，直到找到连续的形式，没有限制

用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));
}

处理（89,150）;

处理（973,13421）;

— 阿努拉格
source

0

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

— 马丁
source

显示连续分数

Mathematica，40个36个字符

Python 2中，158 155 147 142

Python 2，替代。版本95

XSLT 1.0

Ruby，175（具有ASCII文字）或47（无）

没有ASCII艺术，47

用ASCII艺术，181 178 175

鼠尾草笔记本，80

C，119个字符

APL（78）

Mathematica，77岁

Perl 128114个字符

第一篇文章：128个字符

同样使用LaTeX：

的Perl：140，133 121个字符

Firefox上的Razor Leaf，108 127

游戏制作者语言（脚本），61 71

K，136