ggl

#!/usr/bin/env perl

use strict;
use warnings;

if (@ARGV < 1) {
	print "usage: $0 <file>\n";
	exit 0;
};

ggl

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
use Mojo::URL;
use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new->max_redirects(3);

ggl

#!/bin/sh
alias rm='rm -i'
alias mv='mv -i'
alias cp='cp -i
alias plack-app-dir="plackup -MPlack::App::Directory -e 'my \$app = Plack::App::Directory->new({ root => \"\$ENV{HOME}/public\" })->to_app;'"

ggl

#!/usr/bin/env perl

use Mojo::IOLoop;
use POSIX;

# Start at sec % 5 == 0
Mojo::IOLoop->timer((5 - (localtime)[0] % 5) => sub {
	# Perform operation every 5 seconds
	Mojo::IOLoop->recurring(5 => sub {
		my $loop = shift;

ggl

#!/usr/bin/env perl

use strict;
use warnings;

use Child;
use Data::Dumper;
use Sereal::Encoder;
use Sereal::Decoder;

ggl

#!/usr/bin/end perl

use strict;
use warnings;

use Data::Dumper;

my $hist = sub {
	my $input = shift;
	if ($input and $input =~ /^\d+$/) {

ggl

# Configuration file for the color ls utility
# This file goes in the /etc directory, and must be world readable.
# You can copy this file to .dir_colors in your $HOME directory to override
# the system defaults.

# COLOR needs one of these arguments: 'tty' colorizes output to ttys, but not
# pipes. 'all' adds color characters to all output. 'none' shuts colorization
# off.
#
COLOR all

ggl

import std.stdio;
import std.bigint;
import core.checkedint;

void main() {
	writefln("%d", fib_iter(72));
	writefln("%d", fib_binet(72));
}

auto fib_iter (int n) {

ggl

#!/usr/bin/env perl

use Benchmark;
use CBOR::XS ();
use Cpanel::JSON::XS ();
use Data::MessagePack;
use JSON::XS ();
use Sereal::Encoder;
use Sereal::Decoder;

ggl

def sieve_sundaram(n : UInt64)
	a = Hash(UInt64, Bool).new
	s = Array(UInt64).new
	m = (n/2.0).round
	(1_u64..n).each do |i|
		(i..n).each do |j|
			p = i + j + 2_u64*i*j
			if p <= n
				a[p] = true
			end