tynovsky

import Test.QuickCheck

rev :: [a] -> [a]
rev xs = rev' xs [] where
    rev' [] acc = acc
    rev' (x:xs) acc = rev' xs (x:acc)


prop_revapp :: [Int] -> [Int] -> Bool
prop_revapp xs ys = rev (xs++ys) == rev ys ++ rev xs

tynovsky

#!/usr/bin/perl                                                                 

use strict;
use warnings;

use Net::DBus;

my $bus = Net::DBus->find;

my $notify_service = $bus->get_service("org.freedesktop.Notifications");

tynovsky

BEGIN {
    push @INC,
      sub { print "Oops: There was an error looking for $_[1]\n"; return \'1' };
    }

1

# perl -Mshallow -c yourscript.pl

tynovsky

#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;
use Getopt::Long;
use pQuery;
use Data::Dumper;
use Mail::Sendmail;

tynovsky

#!/usr/bin/perl

use strict;
use warnings;

my $editor = "gvim --remote-tab";
my $linenum_param = "+";
my $linenum_separ = q{ : };
my $command;

tynovsky

<VirtualHost *:80>
    ServerName lo
    ServerAlias *.lo
    DocumentRoot /home/miroslav/www

    #do the magic: something.lo => DocumentRoot/something/document_root
    RewriteEngine On
    RewriteCond    %{HTTP_HOST}    ^([^.]*)\.([^.]*)$
    RewriteCond    %{REQUEST_URI}  !document_root
    RewriteRule    ^(.*)$          /%1/document_root$1

tynovsky

<?php

use Nette\Application\UI\Form;
use Nette\Application\Responses\JsonResponse;

class HomepagePresenter extends BasePresenter
{
	private $data = array(
		"pozdrav" => array(
			'ahoj', 'nazdar', 'cau', 'ahojda', 'nazdarecek', 'caues'

tynovsky

PS1='\n\[\033[01;32m\][\t] \h \[\033[01;34m\]\W \$ \[\033[00m\]'