robertpfeiffer

: not ( b -- b ) true xor ;
: myrand ( a b -- r ) over - utime + swap mod + ;

: snake-size 200 ;
: xdim 50 ;
: ydim 20 ;

create snake snake-size cells 2 * allot
create apple 2 cells allot
variable head

robertpfeiffer

data Animal food = Animal String
data Carnivorous = Meat | The (Animal Herbivorous)
data Herbivorous = Plant

gnu::(Animal Herbivorous)
gnu = Animal "gnu"
wolf::(Animal Carnivorous)
wolf = Animal "wolf"

eat::(Animal a) -> a -> String

robertpfeiffer

ssh -D 8080 -L 4000:hadoop09ws10:22 robert.pfeiffer@ssh-stud

robertpfeiffer

Platz map:
			~ attribute
			~ cluster
			+ const overhead
	reduce:
			~ attribute
			+ const overhead

Zeit map:
			~ anzahl cluster

robertpfeiffer

create asciiart 365 cells allot

: fill 32
39  80  56 100 111  98  56  89  96  32 111  56  56  56 111  32 111  56  56  56 111  32 111  56  56  56 111  32  39  80  56 100 111  98  56  89  96  32  32  32  39  80  56 100 111 111  98  56  56  56 111  32
56  56  56  32  32  32  56  56  56  32  32  56  56  56  32  32  32  56  56  56  32  32  32  56  56  56  32  32 111  46  32  32  32  32  56  56  56  32  39  56  56 100  32  32  32  32  32  56  56  56  32  32
56  56  56  32  32  32  56  56  56  32  32  56  56  56  32  32  32  56  56  56  32  32  32  56  56  56  32  32  56  56  56 111 111 111  56  56  56  32  56  56  56  32  32  32  32  32  32  56  56  56  32  32
98  56  56  96  32  39  56  56 100  32  32  98  56  56  89  34  80  98  56  56  89  34  80  56  56  56  96  32  98  56  56  96  32  39  56  56 100  32  56  56  56  32  32  32  32  32  32  56  56  56  32  32
32  46 111 111 111 111 111  46  32  32  32  32  46 111 111  46  32  32  46 111 111  46  32  46 111 111 111  32  32  46 111 111 111 111 111  46  32  32  5

robertpfeiffer

digraph Features {

	subgraph cluster_0 {
		style=filled;
		color=lightgrey;
		node [style=filled,color=white];
		invoice ->accounting;
		accounts -> leads;
		humanresources -> leads;
		humanresources -> salesorder;

robertpfeiffer

d = Accounting::Account.find(:first, :conditions => {:name => "Kasse"})
c = Accounting::Account.find(:first, :conditions => {:name => "Budget 1"})
record = Accounting::Record.new(:credit => c,
                                :debit => d,
                                :amount => 100)

record.description= "BüroPapier"
record.commit!()
 

robertpfeiffer

/* BTrace Script Template */
import com.sun.btrace.annotations.*;
import static com.sun.btrace.BTraceUtils.*;

@BTrace
public class TracingScript {
    private static java.util.Map<String, Integer> myMap = newHashMap();
    private static int methodCountTreshold = 200;
    
	@OnMethod(

robertpfeiffer

(defprotocol Matchable (match [me matcher]))

(defmacro data [name & constructors]
  `(do
     (defprotocol ~name)
     (defprotocol ~(symbol (str "match-"name))
	 ~@(for [[const & args] constructors]
	    `(~(symbol (str "match-"const)) [_# ~@args])))
       
	 ~@(for [[const & args] constructors]

robertpfeiffer

%p 
  =h3 @account.number @account.name
%p
  %strong Description:
  =h @account.description
%p
  %label{:for => "account_record_time"} Super-account:
  = f.select :time, @controller.years_for_select, {:include_blank => false}
%p
  %strong Initial balance: