Slesa

type KeyValues = Map<string,string>

type DataList = {
    Articles: KeyValues list option
}

let dataList : DataList = {
    Articles = Option.None
}

Slesa

open FsUnit

[<TestFixture>]
type ``When using apply in List`` ()=
    let (<*>) = List.apply

    [<Test>] member x.
        ``it should call apply to each member``() =
            [add] <*> [1; 2] <*> [10;20]
            |> should equal [11;21;12;22]    

Slesa

import os
import subprocess

# https://docs.xfce.org/xfce/xfconf/xfconf-query

#region Output

Colors = [
    ('<red>', '\033[0;31m'),
    ('<green>', '\033[0;32m'),

Slesa

package hello_scala
import akka.actor.Actor
import akka.actor.ActorSystem
import akka.actor.Props

class HelloActor extends Actor {
  def receive = {
    case "hello" => println("hello back to you")
    case _ => println("huh?")
  }

Slesa

(* Special directory syntax:
   bin\Program
   bin\Application
   ...
   bin\Config
let deployDir = "bin\deploy\"

let createZip is64bit (dirInfo: DirectoryInfo) = 
  let dirName = dirInfo.Name
  if not (System.String.Equals(dirName, "config", System.StringComparison.CurrentCultureIgnoreCase)) then

Slesa

Build Configuration:

* Debug Support:  full
* GNU Visibility: yes

Now type "make" to compile.
(CDPATH="${ZSH_VERSION+.}:" && cd . && /bin/bash /home/jpreiss/work/xfce/libxfce4util/missing autoheader)
configure.ac:140: warning: AC_LANG_CONFTEST: no AC_LANG_SOURCE call detected in body
../../lib/autoconf/lang.m4:193: AC_LANG_CONFTEST is expanded from...
../../lib/autoconf/general.m4:2729: _AC_RUN_IFELSE is expanded from...

Slesa

type MageProcessor = MSIL | X86
type MageCall = NewApp | UpdateApp | Sign | Deploy | UpdateDeploy | SignDeploy
type MageTrustLevels = Internet | LocalIntranet | FullTrust
type MageParams =
  { ToolsPath : string
    ProjectFiles : seq<string>
    Name : string
    IconPath : string 
    IconFile : string 
    Processor : MageProcessor

Slesa

#I @"Tools\Fake"
#r "FakeLib.dll"

open Fake

let buildNumber =
    if hasBuildParam "version" then getBuildParam "version" else
    if isLocalBuild then "0" else
    buildVersion
let version = 

Slesa

package specs;
import static org.junit.Assert.*;
import org.junit.Before;
import org.junit.Test;
import dlist.DList;
import dlist.DPosition;

public class When_appending_element {

	private DList<Integer> Subject;

Slesa

class Roman                                                                     

»···def self.method_missing name, *args
»···»···roman = name.to_s
»···»···roman.gsub!("IV", "IIII")
»···»···roman.gsub!("IX", "VIIII")
»···»···roman.gsub!("XL", "XXXX")
»···»···roman.gsub!("XC", "LXXXX")
»···»···roman.gsub!("CD", "CCCC")
»···»···roman.gsub!("CM", "DCCCC")