- 197 名前:96 mailto:sage [2021/09/25(土) 22:19:21.21 ID:qK5TmKac.net]
- >>186 Perl5
use feature qw{signatures say}; no warnings 'experimental'; sub s($a, $b, @a) { @a ? $a + &d($b, @a) : $a + $b } sub d($a, $b, @a) { @a ? $a / &s($b, @a) : $a / $b } say &s(/(\d+)/g) for <DATA>; __DATA__ 1,2,3,4,5,6,7 1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2 2,1,1,1,2,1,1,1,1,1,4,1,1,1,1,1,6,1,1,1,1,1 0,4,1,1,3,4,5,9,7,16,9,25,11,36,13,49,15,64,17,81,19,100 実行結果 $ perl 20_186_fraction.pl 1.54304635761589 1.4142135623731 2.71828236824984 3.14159316790851
|

|