{{ message }}

Instantly share code, notes, and snippets.

Traian Nedelea tron1point0

Created Mar 2, 2012
You type stuff as arguments, it gives you the local time
View epoch.pl
 #!/usr/bin/env perl use v5.14; use warnings; use Time::Format qw(time_format); use Time::ParseDate; die <
Created Mar 2, 2012
dotlan functions
View dotlan.js
 // 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'});
Created Mar 9, 2012
Look, ma, I made a database with a query language!
View planetary-interaction.hs
 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 ->
Created Mar 12, 2012
N-queens solver
View nqueens.hs
 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
Created Mar 31, 2012
Redmine TODO list
View todo.pl
 #!/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;
Created Apr 3, 2012
It's *like* redis...
View queued.pl
 #!/usr/bin/env perl use v5.14; use warnings; package Handler::Send; use base 'Tatsumaki::Handler'; sub post { my (\$self,\$id) = @_;
Created Apr 11, 2012
Connect to dancer's dev DB
View sqlconnect.pl
 #!/usr/bin/env perl use v5.14; use warnings; use YAML::XS qw(Load); my @files = qw(config.yml environments/development.yml); unshift @files, @ARGV if @ARGV; for (@files) {
Created Apr 17, 2012
View lib_mysqludf_fwrite.c
 #ifdef STANDARD #include #include #include #else #include #include #endif #include #include
Created Apr 17, 2012
I'm an ass.
View pascal.hs
 pascal' :: [Int] -> [Int] pascal' l | length l < 2 = [1] | otherwise = (a + b) : (pascal' (b:rest)) where a:(b:rest) = l pascal :: [Int] -> [Int] pascal = (1:) . pascal'
Created Apr 24, 2012
View factor.hs
 npto :: (Integral a) => a -> [a] npto x = [2,3] ++ concat [[x*6-1,x*6+1] | x <- [1..n]] where n = ((+1) . round . sqrt . fromIntegral \$ x) `div` 6 factors :: (Integral a) => a -> [a] factors 1 = [] factors x = least : factors (x `div` least) where least = head \$ fs ++ [x] fs = filter ((==0) . mod x) . npto \$ x