46 lines
1.9 KiB
Perl
Executable File
46 lines
1.9 KiB
Perl
Executable File
package DDG::Goodie::Pi;
|
|
# ABSTRACT: This Goodie returns 'pi' to a user-specified number of decimal places
|
|
|
|
use DDG::Goodie;
|
|
use utf8;
|
|
|
|
zci answer_type => "pi";
|
|
zci is_cached => 1;
|
|
|
|
triggers startend => "pi","π";
|
|
|
|
|
|
my $PI = '3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679'.
|
|
'8214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196'.
|
|
'4428810975665933446128475648233786783165271201909145648566923460348610454326648213393607260249141273'.
|
|
'724587006606315588174881520920962829254091715364367892590360011330530548820466521384146951941511609'.
|
|
'433057270365759591953092186117381932611793105118548074462379962749567351885752724891227938183011949'.
|
|
'129833673362440656643086021394946395224737190702179860943702770539217176293176752384674818467669405'.
|
|
'132000568127145263560827785771342757789609173637178721468440901224953430146549585371050792279689258'.
|
|
'923542019956112129021960864034418159813629774771309960518707211349999998372978049951059731732816096'.
|
|
'318595024459455346908302642522308253344685035261931188171010003137838752886587533208381420617177669'.
|
|
'147303598253490428755468731159562863882353787593751957781857780532171226806613001927876611195909216'.
|
|
'4201989';
|
|
|
|
my $PI_max_digits = length($PI) - 2;
|
|
|
|
handle query_raw => sub {
|
|
|
|
return unless $_ =~ /^(?:pi|π)?\s*(?:to|first)?\s*(?<decimal>\d+)\s*(?:(?:decimal|digit)s?)?\s*(?:of\s+(?:pi|π))?$/i &&
|
|
$+{decimal} > 0 && $+{decimal} <= $PI_max_digits;
|
|
|
|
my $answer = substr $PI, 0, ( $1 + 2 );
|
|
return $answer, structured_answer => {
|
|
data => {
|
|
title => $answer,
|
|
subtitle => "First $+{decimal} digits of Pi"
|
|
},
|
|
templates => {
|
|
group => 'text'
|
|
}
|
|
};
|
|
|
|
};
|
|
|
|
1;
|