ab5tract

#!/usr/bin/env perl6

class Decorator is Callable {
    has &.funk;
    has @.history;
    has $.cached-result;

    multi method new(&funk, @history = []) {
        self.bless(:&funk, :@history);
    }

ab5tract

my class Reader {
    my $.pos is rw = 0;
    my $.buf;

    method read(Buf $buf) {
        ...
    }

    method read-type(Any:U: $type) {
        my $width = nativesizeof($type);

ab5tract

use v6;

sub bigpackids(int @ids) {
  my $ret = 0;

  my $c = 0;
  while $c++ < +@ids  {
    $ret = $ret +| (1 +< (@ids[$c] - 1));
  }
  return $ret;

ab5tract

#!/usr/bin/env perl6

use v6;

sub MAIN($dir) {
    my $handler-supplier = Supplier.new;
    my $handler-supply = $handler-supplier.Supply;
    my %seen;
    my $dispatch-promise = start {
        say "Watching out on '$dir'";

ab5tract

subset Sha1 of Str where *.chars == 40 and m:i/<[A..Z 0..9]>/;

class Sha1H does Associative {
  has $!sha1;
  has %!h{Sha1(Str)};
  method AT-KEY($_) { %!h{ .lc } };
  method ASSIGN-KEY($_, $v) { %!h{ .lc } = $v }
}

class Sha1Str is Str {

ab5tract

unit class Grid;

#use Terminal::Print::Commands;
#
#constant T = Terminal::Print::Commands;

has @.grid;
has $!character-supply;
has $!control-supply;

ab5tract

module Chance {
    my @faces = '⚀', '⚁', '⚂', '⚃', '⚄', '⚅';

    sub term:<¿>() is export(:golf) { @faces.roll }

    sub chance()   is export        { ¿ }
}

import Chance;
say chance;

ab5tract

#!/usr/bin/env ruby

require 'rubygems'
require 'i3-ipc'

i3 = I3::IPC.new

def process(data)
  data.each do |ws|
    if ws["focused"] 

ab5tract

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 300 300


/period 2 def 
/thick 1 def

2 2 scale
10 10 translate
thick setlinewidth

ab5tract

http://www.tumblr.com/tumblelog/seyalex
http://maxweidlich.tumblr.com/ 
http://quic0.tumblr.com
http://dennii3.tumblr.com/
http://www.tumblr.com/tumblelog/willem12
http://mbustraan.tumblr.com/
http://e-langhout.tumblr.com
http://www.tumblr.com/tumblelog/fajknerd
http://matthiasfelix.tumblr.com/
http://loocerasemag.tumblr.com