Continued fraction/Arithmetic/Construct from rational number: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed a comment in the REXX section header. -- ~~~~) |
m (→{{header|REXX}}: consolidated two comment lines into one comment line. -- ~~~~) |
||
Line 273: | Line 273: | ||
return strip($) |
return strip($) |
||
/*─────────────────────────────PI subroutine────────────────────────────*/ |
/*─────────────────────────────PI subroutine────────────────────────────*/ |
||
pi: return, /*a bit of overkill, but hey !! */ |
pi: return, /*a bit of overkill, but hey !! */ /* ··· should ≥ NUMERIC DIGITS */ |
||
3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450284102701938521105559644622948954930381964428810975665933446128475648233786783165271 |
3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450284102701938521105559644622948954930381964428810975665933446128475648233786783165271 |
||
/* ··· should ≥ NUMERIC DIGITS */ |
|||
/*─────────────────────────────SERR subroutine──────────────────────────*/ |
/*─────────────────────────────SERR subroutine──────────────────────────*/ |
||
serr: say; say '***error!***'; say; say arg(1); say; exit |
serr: say; say '***error!***'; say; say arg(1); say; exit |