benkasminbullock

#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use utf8;
use FindBin '$Bin';
use Test::More;
my @stuff;
# package NAMESPACE
$stuff[0] =<<EOF;
package switch;

benkasminbullock

{
  "exclamations": [
    "Holy Agility",
    "Holy Almost",
    "Holy Alphabet",
    "Holy Alps",
    "Holy Alter Ego",
    "Holy Anagram",
    "Holy Apparition",
    "Holy Armadillo",

benkasminbullock

#!/usr/bin/perl
# The Weekly Challenge 092
# Task 1 
# main idea: hash of arrays 
use strict;
use warnings;
use Data::Dumper;

sub learn_pattern {
    my %pattern;

benkasminbullock

basi3p01.png 0 0 2
basi3p02.png 0 0 4
basi3p04.png 14 14 15
basi3p08.png 0 0 256
basn3p01.png 0 0 2
basn3p02.png 0 0 4
basn3p04.png 0 14 15
basn3p08.png 0 0 256
ccwn3p08.png 0 245 246
ch1n3p04.png 0 14 15

benkasminbullock

basi0g01.png 0
basi0g02.png 0
basi0g04.png 0
basi0g08.png 0
basi0g16.png 0
basi2c08.png 0
basi2c16.png 0
basi3p01.png 0
basi3p02.png 0
basi3p04.png 14

benkasminbullock

#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use utf8;
use FindBin '$Bin';
use Image::JPEG::Size;
use Image::Size;
use Benchmark qw(:all);

my @files = (

benkasminbullock

#include <stdio.h>
#include <stdlib.h>
#include "puzzle.h"
int main()
{
    PuzzleContext context;
    PuzzleCvec cvec;
    PuzzleCvec cvec2;
    double d;
    int status;

benkasminbullock

#include <stdio.h>
#include <ctype.h>
#include <stdarg.h>
#include "tidy.h"

/* This number is too big for a sane default, so it looks like
   uninitialized memory. */

#define crazy_number 0x10000

benkasminbullock

#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use Data::Kanji::Kanjidic qw/parse_kanjidic grade/;
#use Sljfaq::Kanjilist 'make_kanji_list';
use FindBin;
my $kanjidic = '/home/ben/data/edrdg/kanjidic';

my $k = parse_kanjidic ($kanjidic);
my @joyo;

benkasminbullock

#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use Lingua::JA::Moji ':all';
binmode STDIN, ":encoding(UTF-8)";
binmode STDOUT, ":encoding(UTF-8)";
while (<STDIN>) {
    if (/^(\S+)\s+\[(\p{InKana}+)\]/) {
	print "$2\t$1\n";
    }