Skip to content

Instantly share code, notes, and snippets.

View memowe's full-sized avatar
🦉

Mirko Westermeier memowe

🦉
View GitHub Profile
@memowe
memowe / data.xml
Last active December 18, 2019 10:29
eXiStentiaLisT test resources
<?xml version="1.0"?>
<qa>
<question lang="en">What is the answer to the ultimate question of life, the universe, and everything?</question>
<question lang="de">Wie lautet die antwort auf die Frage nach dem Leben, dem Universum und dem ganzen Rest?</question>
<answer>42</answer>
</qa>
@memowe
memowe / gist:bcba1191b1335b664f00df39ee10d5af
Created June 18, 2018 07:26 — forked from schwern/gist:896004
Benchmarking simple accessors, Moose vs Mouse vs Moo vs hand written vs a hash
#!/usr/bin/env perl
use strict;
use warnings;
use Carp;
BEGIN {
# uncomment to test pure Perl Mouse
# $ENV{MOUSE_PUREPERL} = 1;
@memowe
memowe / visual-git-guide-de.md
Created March 24, 2017 12:33
Eine Git-Referenz in Bildern
@memowe
memowe / peasy.conf
Last active December 12, 2017 09:37
{
tasks => [
{
name => 'simple-sum',
description => 'Implement a function that adds two numbers!',
template => "sub sum {\n my (\$x, \$y) = \@_;\n\n}",
tests => [
{name => 'zeroes', test => 'sum(0, 0)', expected => 0},
{name => 'left zero', test => 'sum(0, 42)', expected => 42},
@memowe
memowe / gist:4373982
Created December 25, 2012 16:13
Perl message for my loved ones.
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q find redo ord helpme
eval scalar qx xor eval xor print
q q q xor int eval lc q m cos and
print chr ord for qw y flock each
s tell y m gt sin ref study split
21 Dec 13:44:50 ntpdate[30735]: ntpdate 4.2.6p2@1.2194-o Sun Oct 17 13:45:14 UTC 2010 (1)
transmit(130.75.1.32)
receive(130.75.1.32)
transmit(67.215.65.132)
transmit(130.75.1.32)
receive(130.75.1.32)
transmit(67.215.65.132)
transmit(130.75.1.32)
receive(130.75.1.32)
transmit(67.215.65.132)
# generate cool names
sub rand_name {
# split alphabet characters
my @vovels = qw(a e i o u);
my @consonants = grep {not $_ ~~ @vovels} 'a' .. 'z';
my %chars = (a => \@vovels, p => \@consonants);
# build name by template
my @templates = qw(papa paapa pappa papaa apa pap paap pappa);
$ perl -MMojolicious::Types -lne 'print @{Mojolicious::Types->detect($_)}'
application/json, text/javascript, */*; q=0.01
application/json; q=1
json
couldn't find 363610690688122880!
couldn't find 114501616370974720!
couldn't find 115627289051398144!
couldn't find 115908769203879936!
couldn't find 173613530791018496!
couldn't find 113938422204203008!
couldn't find 180368087969693696!
clastro> load training
[2012-12-10 15:42:41] loading training data from 'training.data.galaxies'...
training set for runmode 'galaxies' preloaded.
clastro> show galaxies_positives
Object set with 85 objects:
76784280658771968 0.5055029988288879
77910042837254144 0.6619570255279541
78472953137725440 0.5938140153884888
86634711048257536 0.5635910034179688
86916182031990784 0.5196719765663147