use v5.16;
use List::Util 'sum';
say sum map {
state $fib = sub {
my $n = shift;
state $cache = [];
$cache->[$n] //= $n < 2 ? $n : __SUB__->($n-1) + __SUB__->($n-2);
};
$fib->($_);
} 1..100;
use v5.14;
use Memoize;
use List::Util qw(sum reduce);
memoize 'fib';
say sum map fib($_), 1..100; # "sum" is a "reduce { $a + $b }"
sub fib {
my $n = shift;
return $n if $n < 2;
fib($n-1) + fib($n-2);
}
* doc.sccode.org/Classes/SendReply.html
* doc.sccode.org/Browse.html#UGens%3EAnalysis%3EAmplitude
или разные выдумки с классом SoundIn:
* sccode.org/tag/class/SoundIn
для расспознования речи спец. классов нет
p.s. рассказ хороший )
redshift -l lat:lon
"для nvidia еще нужно добавить "
-m vidmode
"p.s. программы и правда спасают глаза
blogs.perl.org/users/david_mertens/2011/06/perls-first-real-cuda-bindings-released.html
scipy это и есть аналог pdl
есть PDL::Graphics::Gnuplot, PDL::Graphics::PLplot и др.
PDL пока без GPU — это да )
metacpan.org/module/OpenCL
github.com/run4flat/perl-CUDA-Minimal
+ есть Inline::C, Inline::CPP
— I. J. Good