7 lines
174 B
Perl
7 lines
174 B
Perl
use FFI::Platypus;
|
|
my $ffi = FFI::Platypus->new;
|
|
$ffi->lib(undef);
|
|
$ffi->attach(puts => ['string'] => 'int');
|
|
$ffi->attach(atan => ['double'] => 'double');
|
|
|
|
puts(4*atan(1));
|