| open System | |
| open System.ServiceModel | |
| open System.ServiceModel.Description | |
| [<ServiceContract(ConfigurationName = "PublishService", Namespace = "http://xyz.gov/PublishService")>] | |
| [<ServiceBehavior(InstanceContextMode=InstanceContextMode.PerSession)>] | |
| type IPublishService = | |
| [<OperationContract(Name="TestMethod")>] | |
| abstract member TestMethod : name:string -> string | |
| /// <summary> | |
| /// Helper to encode and set HTML fragment to clipboard.<br/> | |
| /// See http://theartofdev.com/2014/06/12/setting-htmltext-to-clipboard-revisited/.<br/> | |
| /// <seealso cref="CreateDataObject"/>. | |
| /// </summary> | |
| /// <remarks> | |
| /// The MIT License (MIT) Copyright (c) 2014 Arthur Teplitzki. | |
| /// </remarks> | |
| public static class ClipboardHelper | |
| { |
| #!/usr/bin/env python2 | |
| import SimpleHTTPServer | |
| import SocketServer | |
| import logging | |
| PORT = 8000 | |
| class GetHandler(SimpleHTTPServer.SimpleHTTPRequestHandler): |
| <!DOCTYPE html> | |
| <html> | |
| <head> | |
| <meta charset="UTF-8"> | |
| <title>Offline</title> | |
| </head> | |
| <body style="margin:3em;font-family:sans-serif"> | |
| <h2>Offline</h2> | |
| <p>This site is offline for maintenance.</p> | |
| <!-- |
Copyright © 2016-2018 Fantasyland Institute of Learning. All rights reserved.
A function is a mapping from one set, called a domain, to another set, called the codomain. A function associates every element in the domain with exactly one element in the codomain. In Scala, both domain and codomain are types.
val square : Int => Int = x => x * x| [<AutoOpen>] | |
| module IO = | |
| type IO<'a> = | |
| private | |
| | Return of (unit -> 'a) | |
| | Suspend of (unit -> IO<'a>) | |
| let rec run x = | |
| match x with | |
| | Return v -> v() |
| library(readr) | |
| library(dplyr) | |
| url <- "https://archive.ics.uci.edu/ml/machine-learning-databases/wine-quality/winequality-white.csv" | |
| df <- | |
| read_delim(url, delim = ";") %>% | |
| dplyr::mutate(taste = as.factor(ifelse(quality < 6, "bad", ifelse(quality > 6, "good", "average")))) %>% | |
| dplyr::select(-quality) |
I'm taking down this post. I just posted this as a side comment to explain a sentence on my latest blog post. This wasn't meant to be #1 on HN to start a huge war on functional programming... The thoughts are not well formed enough to have a huge audience. Sorry for all the people reading this. And please, don't dig through the history...
| type List<'i,'r> = Nil | Cons of 'i*'r | |
| type FixList<'i> = FixList of List<'i,FixList<'i>> | |
| let rec fmap (f : 'a -> 'b) (l : List<'i,'a>) : List<'i,'b> = | |
| match l with | |
| | Nil -> Nil | |
| | Cons (x, tail) -> Cons (x, f tail) | |
| // you can express hylo directly without using ana and cata (by either following the |
| type DifferenceType<'TKey, 'T> = | |
| | Added of 'TKey * 'T | |
| | Removed of 'TKey * 'T | |
| | Modified of 'TKey * 'T * 'T * seq<string * (string * string)> with | |
| member this.Key = | |
| match this with | |
| | Added (key, _) | |
| | Removed (key, _) | |
| | Modified (key, _, _, _) -> key |
