Skip to content

Instantly share code, notes, and snippets.

Roman Sachse rommsen

Block or report user

Report or block rommsen

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@rommsen
rommsen / test.fsx
Created Feb 2, 2019
model-based-testing
View test.fsx
#r "netstandard"
#load @"..\.paket\load\netstandard2.0\main.group.fsx"
@"Step3\Infrastructure3.fs"
@"Step3\Domain3.fs"
@"Step3\Program3.fs"
@"Step3\Tests3.fs"
open Step3.Domain
open Step3.Domain.Projections
open Step3.Program
@rommsen
rommsen / tree_building.fs
Last active Jan 15, 2019
Tree building mit Results
View tree_building.fs
module TreeBuilding
type Record = { RecordId: int; ParentId: int }
type Tree =
| Branch of int * Tree list
| Leaf of int
let recordId t =
match t with
| Branch (id, c) -> id
View intro.fsx
// Syntax (keine Klammern, Funktionsaufrufe)
// value binding
let firstname : string = "Roman"
open System.Reflection
open System.Windows.Forms
open System.Security.Cryptography
let age : int = 37
// type inference
View meetup1.jsx
open System
open System.ComponentModel
open System
// 1. Schreibe ein Programm, dass einen Character einliest und ihn wieder ausgibt
// [<EntryPoint>]
// let main argv =
// Console.WriteLine "Hallo was willste?"
View Events.fs
type Event =
| One
| Two
| Three
type Command =
| One
View Server.fsproj
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>netcoreapp2.0</TargetFramework>
<DebugType>portable</DebugType>
</PropertyGroup>
<ItemGroup>
<Compile Include="../Domain/Model.fs" />
<Compile Include="../Domain/Commands.fs" />
<Compile Include="AuthTypes.fs" />
@rommsen
rommsen / Http.fs
Last active Jun 29, 2017
Updated Http.fs file from F# Applied to work with current version of Http.fs
View Http.fs
module Http
open HttpFs.Client
open Hopac
open FSharp.Control.Reactive
type HttpResponse =
| Ok of string
| Error of int
@rommsen
rommsen / Test.elm
Created Nov 18, 2016
Elm-Select Box. Json-Decode-map
View Test.elm
module Main exposing (..)
import Html exposing (..)
import Html.Events exposing (on, targetValue)
import Html.Attributes exposing (..)
import Json.Decode as Json
import Date
type alias Model =
View BinaryTree.elm
{- OVERVIEW ------------------------------------------------------
A "Tree" represents a binary tree. A "Node" in a binary tree
always has two children. A tree can also be "Empty". Below I have
defined "Tree" and a number of useful functions.
This example also includes some challenge problems!
----------------------------------------------------------------
-}
@rommsen
rommsen / EventChecker.php
Last active Oct 5, 2016
Behat with prooph
View EventChecker.php
<?php
namespace Ipark\ApplicationBundle\Behat\Util;
use Prooph\Common\Messaging\Message;
use Prooph\EventSourcing\AggregateRoot;
use Prooph\EventSourcing\EventStoreIntegration\AggregateTranslator;
use Prooph\EventStore\Aggregate\AggregateType;
use Prooph\ServiceBus\EventBus;
use Prooph\ServiceBus\Plugin\Router\RegexRouter;
You can’t perform that action at this time.