This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
type KeyValues = Map<string,string> | |
type DataList = { | |
Articles: KeyValues list option | |
} | |
let dataList : DataList = { | |
Articles = Option.None | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import os | |
import subprocess | |
# https://docs.xfce.org/xfce/xfconf/xfconf-query | |
#region Output | |
Colors = [ | |
('<red>', '\033[0;31m'), | |
('<green>', '\033[0;32m'), |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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?") | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
### Keybase proof | |
I hereby claim: | |
* I am slesa on github. | |
* I am slesa (https://keybase.io/slesa) on keybase. | |
* I have a public key whose fingerprint is 0313 2654 990B FB6A EFF2 6514 AC0E 80D9 FDB6 A2A1 | |
To claim this, I am signing this object: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// seq<int64> -> #seq<int64> | |
let req findAllPrimes values = | |
let sequence = seq { | |
for value in values do | |
if isPrime value then | |
yield value | |
else | |
let divisors = findDivisors value | |
yield! findAllPrimes divisors } | |
sequence |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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... |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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 = |
NewerOlder