ygrenzinger

%% Based on code from
%%   Erlang Programming
%%   Francecso Cesarini and Simon Thompson
%%   O'Reilly, 2008
%%   http://oreilly.com/catalog/9780596518189/
%%   http://www.erlangprogramming.org/
%%   (c) Francesco Cesarini and Simon Thompson

-module(frequency2).
-export([start/0,allocate/0,deallocate/1,stop/0]).

ygrenzinger

Hello to you,

Achieving continuous delivery in software development is a complex subject requiring modern management and robust technical capabilities. This is why I want to share around the subject and try to organize regular events in the "Continuous Delivery to Lean Entreprise" meetup in Paris.

However finding speaker takes times. So I need your help :)

Are you interested to spread your experience ? It could be success or difficulties. Do you know great speaker I can contact ?

ygrenzinger

package fp;

import io.vavr.control.Try;

import java.util.List;
import java.util.Random;
import java.util.stream.Collectors;
import java.util.stream.IntStream;
import java.util.stream.Stream;

ygrenzinger

(ns playing-with-projections.core
  (:require [clojure.data.json :as json]))

;; time helpers with Java 8 API
(def zoneId (java.time.ZoneId/systemDefault))
(defn parse-timestamp [str] (java.time.Instant/parse str))
(defn convert-to-datetime [instant] (java.time.LocalDateTime/ofInstant instant zoneId))

(defn enrich-datetime-info [event]
  (let [instant (parse-timestamp (get event "timestamp"))

ygrenzinger

declare
fun {AppendLists L1 L2}
   if L1.1 == nil then L2
   else
      L1.1 | {AppendLists L2.2 L2}
   end
end

declare
fun {Fact N}

ygrenzinger

declare
fun {Transform L}
	local Label Fields Values R in
		Label =  {List.nth L 1}
		Fields = {List.nth L 2}
		Values = {List.nth L 3}
		R = {Record.make Label Fields}
		local AssignValuesToFields in
		fun {AssignValuesToFields Fs Vs}

ygrenzinger

declare
fun {Infix Tree}
   case Tree
   of leaf then nil
   [] btree(K left:L right:R) then
      {Append {Append {Infix L} [K]} {Infix R}}
   end
end

declare

ygrenzinger

declare
fun {Reverse L}
   local C in
      C = {NewCell nil}
      for E in L do
	 C := E | @C
      end
      @C
   end
end

ygrenzinger

import akka.actor.{Actor, ActorRef, ActorSystem, Props}

trait Strings {
  val START = "Let the fun begin!"
  val NOINT = "Please give me an Int"
  val ASK = "Factorial?"

  implicit class Format(s: String) {
    def isInt: Boolean = s.forall(_.isDigit)
  }

ygrenzinger

declare
proc {ForCollect Xs P Ys}
    Acc={NewCell Ys}
    proc {C X} R2 in
        @Acc=X|R2 Acc:=R2
    end
in
    for X in Xs do
        {P C X}
    end