Diese Frage muss sich nicht nur auf das Beenden von Dezimalstellen beziehen - wiederholte Dezimalstellen können auch über einen Algorithmus in Brüche umgewandelt werden.

Ihre Aufgabe ist es, ein Programm zu erstellen, das eine wiederholte Dezimalzahl als Eingabe verwendet, und den entsprechenden Zähler und Nenner (in niedrigsten Ausdrücken) auszugeben, der diese Dezimalerweiterung erzeugt. Brüche größer als 1 sollten als ungeeignete Brüche wie dargestellt werden 9/5. Sie können davon ausgehen, dass der Eingang positiv ist.

Die wiederholte Dezimalzahl wird in folgendem Format angegeben:

5.3.87

mit allem, was nach dem zweiten Punkt wiederholt wird, wie folgt:

5.3878787878787...

Ihr Programm gibt zwei durch einen Schrägstrich getrennte Ganzzahlen aus, die den Zähler und den Nenner darstellen (oder die entsprechende Form in Ihrer Sprache, wenn Sie keinen einfachen Text ausgeben):

889/165

Beachten Sie, dass beim Beenden von Dezimalstellen nach dem zweiten Punkt nichts angezeigt wird und bei Dezimalstellen ohne nicht wiederholten Dezimalstellen zwischen den beiden Punkten nichts angezeigt wird.

Testfälle

Diese Testfälle decken alle erforderlichen Eckfälle ab:

0..3 = 1/3
0.0.3 = 1/30
0.00.3 = 1/300
0.6875. = 11/16
1.8. = 9/5
2.. = 2/1
5..09 = 56/11
0.1.6 = 1/6
2..142857 = 15/7
0.01041.6 = 1/96
0.2.283950617 = 37/162
0.000000.1 = 1/9000000
0..9 = 1/1
0.0.9 = 1/10
0.24.9 = 1/4

Wenn Sie möchten, können Sie auch davon ausgehen, dass Brüche ohne ganzzahlige Teile nichts links vom ersten Punkt haben. Sie können das mit diesen optionalen Testfällen testen:

.25. = 1/4
.1.6 = 1/6
..09 = 1/11
.. = 0/1

Dyalog APL ( 75 73 69 68 Zeichen)

Hier ist ein weiterer und fünfter Versuch (höchstwahrscheinlich mein letzter); Ich habe den Tag damit verbracht, einen Code zu schreiben, der kürzer als 80 Zeichen ist und den Regeln entspricht. Diese Herausforderung machte meinen Tag!

Endlich habe ich eine APL-Zeile mit 75 Zeichen erhalten, die mit Dyalog APL funktioniert (aber nicht auf der Online-Interpreterseite, da die ⍎ Ausführungsfunktion verwendet wird). Dies ist die folgende:

(N,D)÷D∨N←(⍎'0',1↓I/⍨2=+\P)+(⍎'0',I/⍨2>+\P)×D←D+0=D←⍎'0',⌽2↓⍕¯1+10⊥P←'.'=I← '1.2.3'

Natürlich könnte ich es etwas kürzer machen, aber die Sonderfälle, in denen ein, zwei oder drei Felder fehlen. Mein Code kann sogar den ..Eingabefall verarbeiten.

Ich weiß, dass APL schwer zu lesen ist, und da die Leute gerne verstehen, wie ein Teil des Codes tatsächlich funktioniert, hier einige Erklärungen. Grundsätzlich berechne ich den letzten Nenner in der Variablen D und den letzten Zähler in der Variablen N.

APL wird von rechts nach links analysiert.

• Zunächst wird der String in der Variablen I ( I←) gespeichert .
• Dann wird es auf einen Vektor von Booleschen Werten abgebildet, der angibt, wo sich ein Punkt befindet, und dieser Vektor wird P ( P←'.'=) genannt. Zum Beispiel wird '1.2.3' auf 0 1 0 1 0 abgebildet.
• Dieser Vektor ist Ziffern in der Basis 10 ( 10⊥); jetzt ist '1.2.3' 1010.
• Dann wird 1 von dieser Zahl abgezogen (entweder mit 1-⍨oder mit ¯1+, hier habe ich die zweite gewählt). Jetzt ist '1.2.3' 1009.
• Dann wird diese Zahl in einen String ( ⍕) umgewandelt, zwei Anfangsziffern werden entfernt ( 2↓), was in unserem anfänglichen '1.2.3'-Beispiel 09 ergibt; Die Zeichenfolge ist umgekehrt ( ⌽).
• In diesem Fall füge ich als Sonderfall vor der Zeichenfolge eine anfängliche 0 hinzu. Es macht mich traurig, die vier Zeichen zu verwenden, '0',aber ich habe es getan, um einen Fehler zu vermeiden, wenn das zweite und dritte Feld beide leer sind. Die Zeichenfolge wird zurück in eine Zahl ( ⍎) konvertiert und in D gespeichert, was der Nenner ist, außer wenn beide letzten Felder leer sind, da in diesem Fall D gleich 0 ist.
• Das Teil D←D+0=des Codes hat D auf 1 gesetzt, wenn es aktuell null ist, und jetzt enthält D den Nenner (jedoch vor der GCD-Division).
• Dieser Nenner wird multipliziert ( ×) mit dem Inhalt der Anfangszeichenfolge I bis zu dem zweiten Punkt, mit (⍎'0',I/⍨2>+\P)dem wieder bei P begonnen wird (0 1 0 1 0 in meinem Beispiel), addiert die aufeinanderfolgenden Zahlen, indem sie kumuliert werden (was 0 1 1 2 ergibt 2 in meinem Beispiel), überprüfen Sie, welche Werte kleiner als 2 sind (was den Booleschen Vektor zu 1 1 1 0 0 macht), und nehmen Sie die entsprechenden Zeichen in I; Eine weitere 0 wird vor der Zeichenfolge hinzugefügt, um eine weitere Überfüllung zu verhindern (wenn die beiden Anfangsfelder leer sind), und das Ganze wird in eine Zahl umgewandelt.
• Der letzte Teil der Eingabezeichenfolge wird zum vorherigen Produkt hinzugefügt (⍎'0',1↓I/⍨2=+\P), wobei P erneut verwendet wird, indem erneut kumuliert wird, überprüft wird, welche Werte gleich 2 sind (siehe vorherige Erläuterung), die Zeichen verwendet werden und der erste Punkt entfernt wird , fügt ein vorbeugendes Anfangszeichen 0 hinzu und wandelt es in eine Zahl um.
• Dieses Produkt, gefolgt von einer Summe, wird in N gespeichert, welches der Zähler ist.
• Schließlich wird die GCD mit D∨N berechnet und beide Zahlen werden durch diese GCD geteilt.

edit: Hier ist ein Fix für 73 Zeichen:

(N,D)÷D∨N←(⍎'0',1↓P/I)+(⍎'0',I/⍨~P←2=+\P)×D←D+0=D←⍎'0',⌽2↓⍕¯1+10⊥P←'.'=I←

Die Idee dieses Hacks ist, zunächst den Fall zu berechnen, in dem die kumulative Addition Werte gleich 2 hat, diese für später zu speichern und diese bitweise Maske zu invertieren, um den ersten Fall zu erhalten. Die Berechnung des nächsten Falls erfordert daher weniger Zeichen.

Bearbeiten: Hier ist eine weitere Korrektur für 69 Zeichen:

(N,D)÷D∨N←(⍎'0',1↓P/I)+(⍎'0',I/⍨~P←2=+\P)×D←⍎'1⌈0',⌽2↓⍕¯1+10⊥P←'.'=I←

Die Idee dieses Hacks ist es, den kompliziertesten Sonderfall als APL-Code in die zu bewertende Zeichenfolge einzubetten (bei der Konvertierung von Zeichenfolge zu Zahl).

Bearbeiten: Hier ist eine weitere Korrektur für 68 Zeichen:

(N,D)÷D∨N←(⍎'0',1↓P/I)+(⍎'0',I/⍨~P←2=+\P)×D←⍎'1⌈0',⌽3↓⍕1-10⊥P←'.'=I←

Die Idee dieses Hacks ist es, das Hinzufügen von -1 zu dem Wert zum Subtrahieren von 1 zu diesem Wert durch die Operation zum Subtrahieren dieses Werts zu 1 zu ersetzen und später ein Zeichen mehr am Anfang zu entfernen (dies ist das Minuszeichen).

bearbeiten: Kosmetische Veränderung:

(N,D)÷D∨N←(⍎'0',1↓P/I)+(⍎'0',I/⍨~P←2=+\P)×D←1⌈⍎'0',⌽3↓⍕1-10⊥P←'.'=I←

Keine Größenverbesserung, aber zufriedener damit, die maximale Funktion aus dem zu bewertenden Code herauszuholen.

Perl 6 (93 101 100 80 68 66 Bytes)

$/=split ".",get;say ($0+($1+$2/(9 x$2.comb||1))/10**$1.comb).nude

Die Größe wurde erhöht, um nichts zu handhaben, anstatt nur zu versagen. Mouq hat die Verwendung vorgeschlagen $/, daher wird sie jetzt verwendet, und der Code ist 20 Byte kürzer. Ayiko vorgeschlagen Ersetzen /mit , so dass der Code noch kürzer ist (von 12 Bytes). Dann Mouq vorgeschlagen ersetzt charsmit comb(in numerischem Kontext, sie sind identisch, weil die Liste der Zeichen nach der Umwandlung in Anzahl Anzahl der Zeichen ist).

Beispielausgabe:

$ perl6 script.p6
5.3.87
889 165
$ perl6 script.p6
2.0.0
2 1
$ perl6 script.p6
0..3
1 3
$ perl6 script.p6
0.0.3
1 30
$ perl6 script.p6
0.0.0
0 1
$ perl6 script.p6
0.1.6
1 6
$ perl6 script.p6
0.01041.6
1 96
$ perl6 script.p6
0.2.283950617
37 162
$ perl6 script.p6
123.456.789
41111111 333000

J ( 85 90 89 Zeichen)

Meine ursprüngliche Funktion, die 5 Zeichen kürzer als die zweite war, hatte ein paar Fehler: Sie gab keine Ganzzahlen als "n / 1" aus und gab die falsche Antwort auf Zahlen mit mehr als einem Dutzend oder so Ziffern. Hier ist eine korrigierte Funktion in J, die auch den Vorschlag von Eelvex enthält, ein Zeichen zu speichern:

f=:3 :0
'a t'=.|:(".@('0','x',~]),10x^#);._1'.',y
(,'/'&,)&":/(,%+.)&1+/a%*/\1,0 1-~}.t
)

Es empfängt eine Zeichenfolge und gibt eine Zeichenfolge zurück. Hier ist eine Beispielsitzung:

   f '..'
0/1
   f '0.0.0'
0/1
   f '3..'
3/1
   f '..052631578947368421'
1/19
   f '0.2.283950617'
37/162
   f '.0.103092783505154639175257731958762886597938144329896907216494845360824742268041237113402061855670'
1/97

C 171

Ziemlich lange. Könnte weiter reduziert werden. Nein scanf, die wirklich nicht damit umgehen können, wenn zwischen den Punkten keine Zahlen stehen. Nein strtol. Nur Zahlen knacken:

a,b,c,d,q;main(){while((q=getchar()-48)>-3)q<0?(d=b>0,b+=!b):d?(c=c*10+q,d*=10):(a=a*10+q,b*=10);for(a=a*--d+c,q=b*=d;q>1;a%q+b%q?--q:(a/=q,b/=q));printf("%d/%d\n",a,b);}

Prüfung:

rfc <<< "2..142857"
15/7

DC (nicht ganz allgemein, auf 76 Zeichen gekürzt)

Nicht ganz allgemein, aber bitte denken Sie daran, dass ich es mit einem der ältesten Dinge der Welt gemacht habe:

5.3.87 dsaX10r^d1-rla*sasbdscX10r^dlc*rlb*rlb*la+snsdlnld[dSarLa%d0<a]dsax+dldr/rlnr/f

Bearbeiten: Ich bearbeite meine Lösung. es ist nicht allgemeiner, aber etwas kürzer:

sadsbX10r^sclaX10r^dd1-dsdlblc**rla*+dsnrld*dsd[dSarLa%d0<a]dsax+dldr/rlnr/f

Verwenden Sie es als:

5.3.87 sadsbX10r^sclaX10r^dd1-dsdlblc**rla*+dsnrld*dsd[dSarLa%d0<a]dsax+dldr/rlnr/f

• Das erste Feld ist nicht erforderlich:

  .1.3 sadsbX10r^sclaX10r^dd1-dsdlblc**rla*+dsnrld*dsd[dSarLa%d0<a]dsax+dldr/rlnr/f
  

  ist in Ordnung.

• Zweites und durstiges Feld erfordern mindestens eine Ziffer

Javascript, 203

Viel zu lang, aber trotzdem lustig. Zeilenumbrüche, da Semikolons nicht lesbar sind.

s=prompt(b=1).split(".")
P=Math.pow
a=s[0]
c=s[1]
d=P(10,l=c.length)
f=(P(10,s[2].length)-1)*P(10,l)||1
e=s[2]=+s[2]
a=d*a+b*c;b*=d
a=f*a+b*e;b*=f
function g(a,b){return b?g(b,a%b):a}g=g(a,b);a/g+"/"+b/g

J (andere Methode)

Eine andere Lösung basiert auf einer ganz anderen Methode; diesmal ist es ganz allgemein; Es fehlt nur der 1-Nenner, wenn eine Ganzzahl übergeben wird:

   ".((({.~(i.&1)),'+'"_,((":@(10&^)@#,'%~',])@}.@#~~:/\),'+%',((,~(##'9'"_),'%x:0'"_)@}.@#~2:=+/\@]))(=&'.')) '.1.3'
2r15
   ".((({.~(i.&1)),'+'"_,((":@(10&^)@#,'%~',])@}.@#~~:/\),'+%',((,~(##'9'"_),'%x:0'"_)@}.@#~2:=+/\@]))(=&'.')) '.1.'
1r10
   ".((({.~(i.&1)),'+'"_,((":@(10&^)@#,'%~',])@}.@#~~:/\),'+%',((,~(##'9'"_),'%x:0'"_)@}.@#~2:=+/\@]))(=&'.')) '1..'
1
   ".((({.~(i.&1)),'+'"_,((":@(10&^)@#,'%~',])@}.@#~~:/\),'+%',((,~(##'9'"_),'%x:0'"_)@}.@#~2:=+/\@]))(=&'.')) '1..3'
4r3

GolfScript (67 Zeichen)

`{'.'/1$=.10\,?@-).!+0@+~}+3,/1$4$*]-1%~;*+*+].~{.@\%.}do;{/}+/'/'@

NB Dies unterstützt leere ganzzahlige Teile.

Wenn die Zeichenfolge der Form ist , 'n.p.q'dann ist der Wert , n + p/E + q/(DE) = ((nD + p)E + q)/DEwo D = 10^(len p)und E = 10^(len q) - 1, außer wenn len q = 0, in welchem Fall E = 1(zu vermeiden Division durch 0).

Präparation:

           # Stack: 'n.p.q'
`{         # Combined with the }+ below this pulls the value into the block
           # Stack: idx 'n.p.q'
    '.'/   # Stack: idx ['n' 'p' 'q']
    1$=    # Stack: idx str   (where str is the indexed element of ['n' 'p' 'q'])
    .10\,? # Stack: idx str 10^(len str)
    @-)    # Stack: str 10^(len str)-idx+1
           #   If idx = 0 we don't care about the top value on the stack
           #   If idx = 1 we compute D = 10^(len 'p')
           #   If idx = 2 we compute E' = 10^(len 'q') - 1
    .!+    # Handle the special case E'=0; note that D is never 0
    0@+~   # Stack: 10^(len str)-idx+1 eval('0'+str) (GolfScript doesn't treat 011 as octal)
}+         # See above
3,/        # Run the block for idx = 0, 1, 2
           # Stack: _ n D p E q
1$4$*      # Stack: _ n D p E q D*E
]-1%~;     # Stack: D*E q E p D n
*+*+       # Stack: D*E q+E*(p+D*n)
].~        # Stack: [denom' num'] denom' num'
{.@\%.}do; # Stack: [denom' num'] gcd
{/}+/      # Stack: denom num
'/'@       # Stack: num '/' denom

Online-Demo, bei der das Programm nacheinander mit jedem Testeingang ausgeführt wird.

Python

Keine Bibliotheken - 156 Zeichen

_=lambda a,b:b and _(b,a%b)or a;a,b,c=raw_input().split('.');d,e=int(a+b+c)-bool(c)*int(a+b),
(10**len(c)-bool(c))*10**len(b);f=_(d,e);print'%i/%i'%(d/f,e/f)

Verwenden von fractions- 127 Zeichen

from fractions import*;a,b,c=raw_input().split('.');print Fraction(int(a+b+c)-bool(c)*int(a+b
),(10**len(c)-bool(c))*10**len(b))

Mathematica, 143

Wie üblich bietet Mathematica viele Funktionen auf hoher Ebene, um die Aufgabe zu erledigen, gibt ihnen jedoch ausführliche Namen.

x=StringTake;c=ToExpression;p=s~StringPosition~".";{o,t}=First/@p;u=StringLength@s-t;d=t-o-1;Rationalize@(c@x[s,t-1]+c@x[s,-u]/((10^u)-1)/10^d)

Beispielausgabe, die später hinzugefügt wird, wenn ich Zeit habe.

Rubin - 112

x,y,z=gets.chop.split".";y||='0';z||='0';puts((y.to_i+Rational(z.to_i,10**z.length-1))/10**y.length+x.to_i).to_s

Dies ist mein erstes Experiment mit Ruby. Sie können also jederzeit Verbesserungen vorschlagen.

$ ruby20 % <<< '5.3.87'
889/165
$ ruby20 % <<< '0..3'
1/3
$ ruby20 % <<< '0.0.3'
1/30
$ ruby20 % <<< '0.00.3'
1/300
$ ruby20 % <<< '0.6875.0'
11/16
$ ruby20 % <<< '1.8.0'
9/5
$ ruby20 % <<< '2..'
2/1
$ ruby20 % <<< '..'
0/1

C 164

Dies ähnelt der C-Lösung von orion, obwohl ich es von Grund auf getan habe. Ich gestehe jedoch, einige seiner Optimierungen gestohlen zu haben. Es ist nicht viel kürzer, aber es verarbeitet 0,25. = 1/4 und 0,000000,1 = 1/9000000.

long a,b,c,d,e;main(){while((c=getchar()-48)>-3)c+2?a=a*10+c,b*=10:b?e=a,d=b:(b=1);
b>d?a-=e,b-=d:0;for(d=2;d<=a;)a%d+b%d?d++:(a/=d,b/=d);printf("%ld/%ld\n",a,b);}

Zwei Python-Antworten ohne Bibliotheken. First behandelt die optionale Eingabe ohne eine Ziffer vor der ersten. und ist 162 Zeichen

_=lambda a,b:b and _(b,a%b)or a;i,t,r=raw_input().split(".");b=r!="";d=(10**len(r)-b)*10**len(t);n=int((i+t+r)or 0)-b*int((i+t)or 0);f=_(d,n);print "%i/%i"%(n,d)

Der zweite behandelt nichts vor der ersten Ziffer, behandelt aber alle erforderlichen Eingaben korrekt und hat 150 Zeichen

_=lambda a,b:b and _(b,a%b)or a;i,t,r=raw_input().split(".");b=r!="";d=(10**len(r)-b)*10**len(t);n=int(i+t+r)-b*int(i+t);f=_(d,n);print "%i/%i"%(n,d)

Haskell

import Data.Ratio
f n=case s '.' n of
    [x,y,z]->(r x)%1+(r y)%(10^(length y))+(r z)%((10^t-1)*(10^(length y)))
        where
            r ""=0
            r n=read n
            t = if length z==0 then 9 else length z
s _ []=[[]]
s n (x:xs) | x==n = []:(s n xs)
           | otherwise = let (l:ls)=s n xs in (x:l):ls

JavaScript (ECMASCript 6) 180 175

G=(a,d)=>d?G(d,a%d):a;P=a=>+("1e"+a);L=a=>a.length;f=prompt().split(".");B=P(L(b=f[1]));D=P(L(b)+L(c=f[2]))-P(L(b))||1;alert((m=(f[0]+b||0)*D+B*(c||0))/(g=G(m,n=B*D))+"/"+n/g)

Es ist zwar kein klarer Gewinner für die 300-Kopfgelder ... aber dies ist die kürzeste, die ich mir einfallen lassen kann:

• Änderungen gegenüber der Vorgängerversion: Einige geringfügige Änderungen an der Logik und Änderungen an der Power- PFunktion, indem diese in geändert wird, +("1e"+a)anstatt Math.pow(10,a)ein paar weitere Zeichen zu speichern ...

Mathematica 175

f@i_:=
If[IntegerQ[g=FromDigits[Map[IntegerDigits@ToExpression@#&,StringSplit[i,"."]/.""-> {}]
/.{a_,b_,c_}:> {{Sequence@@Join[a,b],c},Length@a}]],HoldForm[Evaluate@g]/HoldForm@1,g]

Der größte Teil der Routine wird zum Massieren der Eingabe ausgeführt. Ungefähr 50 Zeichen wurden für die Verarbeitung ganzer Zahlen verwendet.

Beispiele

f["7801.098.765"]

Mehr Beispiele:

TableForm[
 Partition[{#, f[#]} & /@ {"19..87", "19.3.87", "5.3.87", "0.0.3", "0..3", "0.2.283950617", 
"123.456.789", "6666.7777.8888", "2.0.0","0.0.0"}, 5], TableSpacing -> {5, 5}]

Wie es normalerweise in Mathematica geschehen würde

FromDigitskann einen Bruch direkt aus einer wiederkehrenden wiederholten Dezimalstelle erhalten, vorausgesetzt, die Eingabe hat eine bestimmte Form. Ganzzahlen werden als Ganzzahlen angezeigt.

z={{{1, 9, {8, 7}}, 2}, {{1, 9, 3, {8, 7}}, 2}, {{5, 3, {8, 7}}, 1}, {{{3}}, -1}, {{{3}}, 0}, 
{{2, {2, 8, 3, 9, 5, 0, 6, 1, 7}}, 0}, {{1, 2, 3, 4, 5, 6, {7, 8, 9}}, 3}, 
{{6, 6, 6, 6, 7, 7, 7, 7, {8}}, 4}, {{2}, 1}, {{0}, 1}}

FromDigits/@z

J (96 Zeichen)

Ich verwende das Schrägstrichsymbol nicht als Trennzeichen (aber in Mathematica auch nicht, da es eine grafische Darstellung verwendet, die sowieso besser ist). In der Sprache J wird der Bruch mit rstattdessen wie folgt angezeigt /:

   (((-.@]#[)((".@[%#@[(10x&^)@-{.@])+({.@](10x&^)@-#@[)*<:@{:@](".%<:@(10x&^)@#)@}.[)I.@])(=&'.')) '1..3'
4r3
   (((-.@]#[)((".@[%#@[(10x&^)@-{.@])+({.@](10x&^)@-#@[)*<:@{:@](".%<:@(10x&^)@#)@}.[)I.@])(=&'.')) '123.456.789'
41111111r333000

APL (nicht ganz allgemein)

Nicht ganz allgemein (wie meine Lösung für DC); funktioniert mit Dyalog APL (aber nicht in der Online-Version von Dyalog APL, nicht sicher warum):

(R,F)÷(F←D×N)∨R←(⍎C)+D×(⍎I/⍨2>+\P)×N←10*¯1++/≠\P⊣D←¯1+10*⍴C←1↓I/⍨2=+\P←'.'=I← '123.456.789'

Das erste Feld ist optional, für beide anderen Felder ist jedoch mindestens eine Ziffer erforderlich.

JavaScript (189)

i=prompt().split(".");a=i[0];b=i[1];c=i[2];B=b.length;p=Math.pow;n=a+b+c-(a+b);d=p(10,B+c.length)-p(10,B);f=1;while(f){f=0;for(i=2;i<=n;i++)if(n%i==0&&d%i==0){n/=i;d/=i;f=1}};alert(n+"/"+d)

Beispiel:

Eingang:

5.3.87

Ausgabe:

889/165

C (420 Zeichen wie geschrieben; weniger nach dem Entfernen unnötiger Leerzeichen)

Beachten Sie, dass dies 64-Bit voraussetzt long(z. B. 64-Bit-Linux). 0.2.283950617Auf Systemen mit 32-Bit-Version schlägt der Test fehl long. Dies kann auf Kosten einiger Zeichen behoben werden, indem der Typ auf long longund die printfFormatzeichenfolge entsprechend geändert werden.

#include <stdio.h>

long d[3], n[3], i;

int main(int c, char** v)
{
  while (c = *v[1]++)
    switch(c)
    {
    case '.':
      n[++i] = 1;
      break;
    default:
      d[i] = 10 * d[i] + c - '0';
      n[i] *= 10;
    }

  n[2] -= n[2] != 1;

  while (i--)
    d[2] += d[i] * n[i+1], n[i]*=n[i+1];

  i = d[2];
  *n = n[1];

  while (i)
    *d = i, i = *n%i, *n = *d;
  printf("%ld/%ld\n", d[2]/ *n, n[1]/ *n);
}

GTB , 81

`_:s;_,1,l?_)-S;_,"."
s;A;,1,S;_,".")-1
s;_,1+S;_,"."),l?_)-S;_,"."))→_
x?A;+_)►Frac

Beispiel

?3.25.
            13/4