This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
# Generates FuncND.pm. Call with | |
# perl FuncND.pm.PL FuncND.pm | |
my $out_filename = $ARGV[0]; | |
open my $out_fh, '>', $out_filename; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
############################################################################ | |
package PDL::Demos::Prima; | |
############################################################################ | |
# It's a shame that PDL::Demos::Routines is in a file called | |
# PDL::Demos::Screen. Oh well. | |
use PDL::Demos::Screen; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* | |
* This file was generated automatically by ExtUtils::ParseXS version 3.18 from the | |
* contents of Minimal.xs. Do not edit this file, edit Minimal.xs instead. | |
* | |
* ANY CHANGES MADE HERE WILL BE LOST! | |
* | |
*/ | |
#line 1 "lib/CUDA/Minimal.xs" | |
#include "EXTERN.h" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use POE; | |
use POE::Component::IRC::State; | |
use constant CHANNEL => '#pdl'; | |
# Load the current piddlebot functions: | |
use piddlebot; | |
my $last_modified = (stat('piddlebot.pm'))[9]; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
## | |
## Usage: | |
## perl matmult_pdl_thr.pl 1024 ## Default size is 512: $c = $a * $b | |
## | |
## by David Mertens | |
## based on code by Mario Roy | |
################# |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use PDL::Graphics::Prima::Simple; | |
plot( | |
-data => ds::Pair($time, $temp, | |
plotType => ppair::Lines, | |
), | |
x => { label => 'Days into the Future' }, | |
y => { label => 'Temperature (Degrees Fahrenheit)' }, | |
); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use PDL::Graphics::Prima::Simple; | |
my ($window, $plot) = line_plot $time, $temp; | |
$plot->x->label('Days into the Future'); | |
$plot->y->label('Temperature (Degrees Fahrenheit)'); | |
$plot->title("Forecast for $zip_code"); | |
$window->execute; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use PDL::Graphics::Prima::Simple; | |
line_plot $time, $temp; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
############################# | |
# Getting the Forecast Data # | |
############################# | |
use PDL; | |
use Time::Piece; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
sub build_state_func { | |
my $state_var | |
return sub { | |
# work with state here | |
} | |
} | |
... | |
*globref = build_state_func(); |