ToJans

Stream.repeatedly(&:random.uniform/0) 
 |> Enum.take(10000)
 |> Stats.all
 |> IO.inspect

ToJans

using Microsoft.VisualStudio.TestTools.UnitTesting;
using System;
using System.Collections.Generic;
using System.Collections.Immutable;
using System.Linq;

namespace TDDCoverage
{
    public class Order
    {

ToJans

using System;
using Microsoft.VisualStudio.TestTools.UnitTesting;

namespace TDDCoverage
{
    public enum Gender { Unknown, Male, Female }

    public class Customer
    {
        public Gender Gender = Gender.Unknown;

ToJans

defmodule Threes do

	def right(board) do
		board 
	 		|> Enum.map(&pack/1)
	end

	def left(board) do
		board 
			|> Enum.map(&reverse_pack/1)

ToJans

namespace Arealities.Models

type Size = Size of decimal * decimal * decimal
type Position = Position of decimal * decimal * decimal
type Rotation = Rotation of decimal * decimal * decimal
type Direction = Direction of decimal * decimal * decimal

type LightIntensity = float
type Material = Ground | Floor | ShinyStuff | Wall
type Geometry = CubeGeometry of Size

ToJans

Error	1	This expression was expected to have type
    unit    
but here has type
    Mesh	C:\dev\.Net\arealities\Arealities.Models\Veranda.fs	17	11	Arealities.Models

ToJans

namespace Arealities.Models

type [<Measure>] mm;    // milimeter
type [<Measure>] degrees;   // degrees
type [<Measure>] intensity;  // unit = 1

type Vector3D<'a> = {x: 'a; y: 'a; z: 'a}

type Placement = Placement of position: decimal<mm> Vector3D * 
                              rotation: decimal<degrees> Vector3D

ToJans

    let povify model = 
        match model with
        | (v:Vector3D<decimal>) -> sprintf "<%M,%M,%M>" (v.x/1M) (v.y/1M) (v.z/1M)
        | CubeGeometry c -> 
            let half = c.size/2M
            sprintf "box {%s %s} " (povify half) (povify vec3D0-half)

ToJans

    type Range(min: decimal,max: decimal) = 
        member this.min = min
        member this.max = max
        static member (*) (r: Range, d: decimal) = Range(r.min * d,r.max * d)
        static member (*) (d: decimal, r: Range) = r*d
        static member (/) (r: Range, d: decimal) = Range(r.min / d,r.max / d)
        static member (/) (d: decimal, r: Range) = r/d
        static member (+) (r: Range, d: decimal) = Range(r.min + d,r.max + d)
        static member (+) (d: decimal, r: Range) = r+d
        static member (-) (r: Range, d: decimal) = Range(r.min - d,r.max - d)

ToJans

Link to picture

Tom Janssens solves business problems by building software and helps organisations to get better at building software. He is also one of the founders of Domain Driven Design Belgium.

He explores and cross-contaminates ideas from different languages and platforms; over the years he has been using languages like C#, F#, JavaScript, Erlang, Elixir and Haskell, and he is currently studying Idris. Other aspects include start-ups, BDD, DDD, CQRS and tackling legacy software.

When Tom is not working for his start-up, he is consulting clients and occasionally dumping random opinionated blurbs on his blog.