TopMonks coffee - presentation samples

demo01.clj

(defprotocol Event
  (scheduled-time [this])
  (execute [this]))

(defn simulate [event]
  (synchronize-time (scheduled-time event))
  (execute event))

demo01.java

public interface Event {
	public double getScheduledTime();
	public void execute();
}

// ...

public void simulate(Event event) {
	synchronizeTime(event.getScheduledTime());
	event.execute();
}

demo02.clj

(defn work [initial-task]
  (loop [tasks (list initial-task)]
    (when (not-empty tasks)
      (let [task (peek tasks)]
        (recur 
         (into (pop tasks) (execute taks)))))))

demo02.java

public static void work(Task initialTask) {
	ArrayList<Task> tasks = new ArrayList<Task>();
	tasks.add(initialTask);
	
	while (!tasks.isEmpty()) {
	    Task task = tasks.remove(0);
	    List<Task> newTasks = task.execute();
	    tasks.addAll(newTasks);
	}
}

demo03.clj

(defn sum-even-fibonacci [limit]
  (loop [first 0 
         second 1 
         sum 0]
    
    (if (<= second limit)
      (let [new-sum
        (if (= (mod second 2) 0)
          (+ sum second)
          sum)]
        (recur second (+ first second) new-sum))
      sum)))

(println "Result: " (sum-even-fibonacci 4000000))

demo03.java

public static void main(String[] args) {
    int limit = 4000000;
    int first = 0;
    int second = 1;
    int sum = 0;

    while (second <= limit) {
        if (second % 2 == 0) {
            sum += second;
        }
        int newFirst = second;
        int newSecond = first + second;

        first = newFirst;
        second = newSecond;

    }
    
    System.out.println("Result: " + sum);
}

https://docs.google.com/presentation/d/1RZ7-5So0TcN6A-1mLbshcX7kF-cJkhvtSFbFay33emI/edit?usp=sharing