tron1point0

#!/usr/bin/env perl

use v5.14;
use warnings;

use LWP::UserAgent;
use List::MoreUtils qw(part);
use YAML qw(LoadFile);
use JSON::XS qw(decode_json);
use Text::FormatTable;

tron1point0

import Data.List
import Data.Maybe
import Data.Monoid

-- The hard stuff

solve' :: Int -> [(Int, Int)] -> [(Int, Int)] -> Solutions
solve' nq queens board
    | length queens == nq = Solutions [Solution nq queens]
    | length board == 0   = mempty

tron1point0

import Data.List
import Data.Maybe

input x = map (\(a,b) -> (a, b * x))
reduce :: [([Char], Integer)] -> [([Char], Integer)]
reduce = map (\(a,b) -> (head a, sum b)) . map (unzip) . group . sort
planet n = map (\(a,_) -> (n,a))
planets_for = foldl1
    (\a b ->

tron1point0

// Raw SVG: http://evemaps.dotlan.net/svg/Branch.dark.svg

function system(name,fn) {
    document.getElementsByClassName('ss').each(function(elem){
        if(elem.textContent == name) fn.call(elem.parentElement)
    });
}

system('D4R-H7',function(){this.getElementsByClassName('s')[0].style.fill = '#000000'});

tron1point0

#!/usr/bin/env perl

use v5.14;
use warnings;
use Time::Format qw(time_format);
use Time::ParseDate;

die <<END if $ARGV[0] && $ARGV[0] =~ m/-h(?:elp)?/;
$0: Fuzzy time conversion to localtime