Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 22:35:43 -04:00
Code Issues Releases Wiki Activity

adding oeis

Browse source
This commit is contained in:
Ryan Voots 2010-11-27 17:11:29 -05:00
parent d6529cbdb7
commit 217257eada
1 changed files with 55 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

55
plugins/oeis.pm Normal file
View file

@ -0,0 +1,55 @@
# OEIS plugin to buubot3 by b_jonas
use warnings;
use strict;
use CGI;
use LWP::Simple;
use WWW::Shorten 'Metamark';
sub {
my($said) = @_;
my $q = $said->{"body"};
warn 1;
if( $q =~ /^\s*(?:(?:help|wtf|\?|\:)\s*)?$/i )
{
print "see http://tinyurl.com/7xmvs and http://tinyurl.com/2blo2w";
return;
}
warn 2;
my $uri = "http://www.research.att.com/~njas/sequences/?q=" . CGI::escape($q) . "&n=1&fmt=3";
local $_ = get($uri); # change this in the real plugin
warn 2.5;
if (/^Results .* of (\d+) results/mi) {
my $nrfound = $1;
unless( /^%N (\S+) (.*)/m )
{
print "Reply from OEIS in unknown format 2";
return;
}
warn 3;
my($anum, $title) = ($1, $2);
my $elts_re = /^%V/m ? qr/^%[VWX] \S+ (.*)/m : qr/^%[STU] \S+ (.*)/m;
my $elts = join ",", /$elts_re/g;
$elts =~ s/,,+/,/g;
warn 3.5;
if (1 == $nrfound) {
my $outuri = sprintf "http://tinyurl.com/4zq4q/%.10s", $anum;
print sprintf "%s %.256s: %.512s", $outuri, $title, $elts;
} else {
my $outuri1 = "http://www.research.att.com/~njas/sequences/?q=" . CGI::escape($q);
warn 3.6;
my $outuri = makeashorterlink($outuri1) || $outuri1;
print sprintf "%s %.10s(1/%d) %.256s: %.512s", $outuri, $anum, $nrfound, $title, $elts;
}
} elsif (/^no matches/mi) {
print "No matches found";
warn 4
} else {
warn 5;
print "Reply from OEIS in unknown format";
}
}
__DATA__
Search for a sequence in the On-Line Encyclopedia of Integer Sequences (http://tinyurl.com/2blo2w) Syntax, oeis 1,1,2,3,5