Engel expansion: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: tweak) |
(→{{header|Quackery}}: Meets stretch requirements now.) |
||
Line 406: | Line 406: | ||
2drop ] is engel->v ( [ --> n/d ) |
2drop ] is engel->v ( [ --> n/d ) |
||
$ "3.14159265358979 2.71828182845904 1.414213562373095" |
|||
nest$ |
|||
witheach |
|||
[ $->v drop |
|||
2dup 200 point$ echo$ cr |
|||
v->engel |
|||
dup witheach [ echo i if sp ] cr |
|||
engel->v |
|||
200 point$ echo$ cr |
|||
cr ] |
|||
$ "3.1415926535897932384626433832795028841971693993751058" |
|||
$ "209749445923078164062862089986280348253421170679821480" join |
|||
$ "865132823066470938446095505822317253594081284811174502" join |
|||
$ "841027019385211" join |
|||
nested |
|||
$ "2.7182818284590452353602874713526624977572470936999595" |
|||
$ "7496696762772407663035354759457138217852516642743" join |
|||
nested join |
|||
$ "1.4142135623730950488016887242096980785696718753769480" |
|||
$ "731766797379907324784621070388503875343276415727350138" join |
|||
$ "462309122970249248360558507372126441214970999358314132" join |
|||
$ "226659275055927558" join |
|||
nested join |
|||
witheach |
|||
[ $->v drop |
|||
2dup 200 point$ echo$ cr cr |
|||
v->engel |
|||
dup 30 split drop |
|||
witheach [ echo i if sp ] |
|||
say "... " cr cr |
|||
engel->v |
|||
200 point$ echo$ cr cr |
|||
cr ]</syntaxhighlight> |
|||
{{out}} |
{{out}} |
||
<pre>3.14159265358979 |
<pre>3.14159265358979 |
||
1 1 1 8 8 17 19 300 1991 2768 4442 4830 10560 37132 107315 244141 651042 1953125 |
1 1 1 8 8 17 19 300 1991 2768 4442 4830 10560 37132 107315 244141 651042 1953125 |
||
3.14159265358979 |
3.14159265358979 |
||
2.71828182845904 |
2.71828182845904 |
||
1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 17 82 144 321 2289 9041 21083 474060 887785 976563 1953125 |
1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 17 82 144 321 2289 9041 21083 474060 887785 976563 1953125 |
||
2.71828182845904 |
2.71828182845904 |
||
1.414213562373095 |
1.414213562373095 |
||
1 3 5 5 16 18 78 102 120 144 260 968 18531 46065 63005 65105 78125 |
1 3 5 5 16 18 78 102 120 144 260 968 18531 46065 63005 65105 78125 |
||
1.414213562373095 |
1.414213562373095 |
||
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211 |
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211 |
||
192 terms in expansion |
|||
1 1 1 8 8 17 19 300 1991 2492 7236 10586 34588 63403 70637 1236467 5417668 5515697 5633167 7458122 9637848 9805775 41840855 58408380 213130873 424342175 2366457522 4109464489 21846713216 27803071890... |
|||
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211 |
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211 |
||
2.71828182845904523536028747135266249775724709369995957496696762772407663035354759457138217852516642743 |
2.71828182845904523536028747135266249775724709369995957496696762772407663035354759457138217852516642743 |
||
115 terms in expansion |
|||
1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29... |
|||
2.71828182845904523536028747135266249775724709369995957496696762772407663035354759457138217852516642743 |
2.71828182845904523536028747135266249775724709369995957496696762772407663035354759457138217852516642743 |
||
1.4142135623730950488016887242096980785696718753769480731766797379907324784621070388503875343276415727350138462309122970249248360558507372126441214970999358314132226659275055927558 |
1.4142135623730950488016887242096980785696718753769480731766797379907324784621070388503875343276415727350138462309122970249248360558507372126441214970999358314132226659275055927558 |
||
185 terms in expansion |
|||
1 3 5 5 16 18 78 102 120 144 251 363 1402 31169 88630 184655 259252 298770 4196070 38538874 616984563 1975413035 5345718057 27843871197 54516286513 334398528974 445879679626 495957494386 2450869042061 2629541150527... |
|||
⚫ | |||
</pre> |
|||
⚫ | |||
=={{header|Raku}}== |
=={{header|Raku}}== |