tene

#!/bin/bash

if [ ! -f ~/minecraft.jar ] ; then
    wget https://s3.amazonaws.com/MinecraftDownload/launcher/minecraft.jar -O ~/minecraft.jar
fi

BASE="$HOME/mc-installs"

mkdir -p "$BASE"

tene

List of pre-defined events (to be used in -e):
  cpu-cycles OR cycles                               [Hardware event]
  stalled-cycles-frontend OR idle-cycles-frontend    [Hardware event]
  stalled-cycles-backend OR idle-cycles-backend      [Hardware event]
  instructions                                       [Hardware event]
  cache-references                                   [Hardware event]
  cache-misses                                       [Hardware event]
  branch-instructions OR branches                    [Hardware event]
  branch-misses                                      [Hardware event]

tene

[sweeks@sweeks-laptop ~]$ perf stat --repeat=20 perl6 -e 'say "hello world"'
hello world
hello world
hello world
hello world
hello world
hello world
hello world
hello world
hello world

tene

#!/usr/bin/env perl
use strict;
use warnings;
use B;
use IO::Socket;
use IO::Interface qw/:flags/;
use Data::Dumper;

sub find_sub_definition {
    my ($sub) = @_;

tene

#!/usr/bin/perl
use v5.10;
use IO::File qw//;
sub countItems {
    (my $target) = @_;
    my $fh = IO::File->new('.ptd', 'r') or die 'no .ptd file found';
    return map { /^$target:(.*)/ } <$fh>;
}

sub printTodo {

tene

#!/usr/bin/perl -w
# Use Moose for the Player class, and other slight improvements.
package Player;
use v5.10;
use strict;
use Moose;

has 'health' => (is => 'rw', isa => 'Int', default => 100);
has 'x'      => (is => 'rw', isa => 'Int');
has 'y'      => (is => 'rw', isa => 'Int');

tene

#include <stdio.h>

void main() {
    int a[10];
    int *b = a;
    printf("%d %d\n", sizeof(a), sizeof(b));
}

tene

package Player;
use Moose;

has 'x' => (is => 'rw', isa => 'Int');
has 'y' => (is => 'rw', isa => 'Int');

sub position {
  my ($self, $x, $y) = @_;
  if ( defined($x) and defined($y) ) {
    $self->x($x); $self->y($y);

tene

task

script
  for port in $(seq 8080 8087) ; do
    start platform-worker PORT=$port
  done
end script

tene

logs