delphinus

curl.exe --data-urlencode "clipboard=%Data%" -d "email=EMAIL_ADDRESS" -d "pwd=PASSWORD" "https://pastefire.com/set.php"

delphinus

" functions {{{
" returns an approximate grey index for the given grey level
fun <SID>grey_number(x)
	if &t_Co == 88
		if a:x < 23
			return 0
		elseif a:x < 69
			return 1
		elseif a:x < 103
			return 2

delphinus

use DateTime;
my $d = DateTime->new(
	year => 2012,
	month => 1,
	day => 1,
	time_zone => 'Asia/Tokyo',
);
print $d->clone->add(months => 3)->ymd . "\n";
print $d->clone->add(days => 90)->ymd . "\n";

delphinus

use Time::Piece;
#my $d = localtime(time);
my $d = Time::Piece->strptime('2012-01-01', '%Y-%m-%d');
print $d->add_months(3)->ymd . "\n";

delphinus

"-----------------------------------------------------------------------------
" Gist
let g:gist_privates=1

delphinus

let g:gist_privates=1

delphinus

screen -URR -O -c .screenrc

delphinus

:set fdc=5 fdm=indent foldlevel=99 foldlevelstart=99

delphinus

sub mean {
	my @values = @_;
	return sum(@values) / @values;
}

sub median {
	my @sorted = sort { $a <=> $b } @_;
	return @sorted % 2
		? $sorted[int(@sorted / 2)]
		: mean(@sorted[@sorted / 2 - 1, @sorted / 2]);

delphinus

srand (time ^ $$ ^ unpack "%L*", `ps axww | gzip`);