caindy

require 'hpricot'
require 'open-uri'
require 'parallel'

overall_start_time = Time.now
uri = "http://www.stanford.edu/class/cs193p/cgi-bin/drupal/downloads-2010-fall"
puts "Downloading #{uri}"
doc = Hpricot(open(uri))

pdfs = doc/"//a[@href*=pdf]"

caindy

#import <UIKit/UIKit.h>

@interface BSIView : UIView

@end

caindy

defmodule Hello.Util.UUID do

  def new(byte_count // 16) do 
    dividend = div(byte_count, 16)
    remainder = rem(byte_count, 16)
    cnt = case remainder do
      r when r === 0 -> dividend 
      _ -> dividend + remainder
    end
    make cnt, byte_count, <<>>

caindy

For example, one of the many current day standards that was dismissed immediately is the WWW (one could hardly imagine more of a mess).

But the functionality plus more can be replaced in our "ideal world" with encapsulated confined migratory VMs ("Internet objects") as a kind of next version of Gerry Popek's LOCUS.

The browser and other storage confusions are all replaced by the simple idea of separating out the safe objects from the various modes one uses to send and receive them. This covers files, email, web browsing, search engines, etc. What is left in this model is just a UI that can integrate the visual etc., outputs from the various encapsulated VMs, and send them events to react to. (The original browser folks missed that a scalable browser is more like a kernel OS than an App)

These are old ideas, but the vendors etc didn't get it ...

caindy

let (|Fizz|_|) i =
  if i % 3 = 0 then Some i
  else None

let (|Buzz|_|) i =
  if i % 5 = 0 then Some i
  else None

let (|``Fizz Buzz``|_|) i =
  match i with

caindy

#!/bin/bash

if [ ! -e packages/FAKE/tools/FAKE.exe ]; then 
  mono .nuget/NuGet.exe install FAKE -OutputDirectory packages -ExcludeVersion
fi
if [ ! -e packages/SourceLink.Fake/Tools/Fake.fsx ]; then
  mono .nuget/NuGet.exe install SourceLink.Fake -OutputDirectory packages -ExcludeVersion
fi

if [ ! -e build.fsx ]; then 

caindy

Please check this draft: https://medium.com/software-craftsmanship/9e8f0b85e9?kme=collabEmail.clicked&km_postIds=9e8f0b85e9

You should read about hypermedia APIs, if only to challenge your thinking. It helped me a lot to do just that.

Articles

• How to GET a cup of coffee http://www.infoq.com/articles/webber-rest-workflow
• My Week With The Hypermedia Cowboys: http://wekeroad.com/2012/03/13/my-week-with-the-hypermedia-cowboy, http://wekeroad.com/2012/03/18/alt-tekpub-consuming-the-api, http://wekeroad.com/2012/03/22/alt-tekpub-working-more-with-the-hypermedia-style-api, http://wekeroad.com/2012/03/26/loading-data-from-the-api-how-much-is-too-much
• How much rest should your web api get http://blog.restlet.com/2013/05/02/how-much-rest-should-your-web-api-get/
• How I learned to stop worrying and love REST http://mikemayo.org/2012/how-i-learned-to-stop-worrying-and-love-rest/

caindy

open System.Numerics

let (|Rect|)  (x: Complex) = (x.Real, x.Imaginary)
let (|Polar|) (x: Complex) = (x.Magnitude, x.Phase)

//conversion functions easily expressed in terms of active patterns
let toRect  = function | Rect(r, i) -> (r, i)
let toPolar = function | Polar(m, p) -> (m, p)

//following two functions are equivalent, but the former reads better IMO

caindy

#! /bin/bash

if hash brew 2>/dev/null; then
  echo "Found Homebrew"
else
  echo >&2 "Please install Homebrew"
  exit 1
fi

if hash fsharpi 2>/dev/null; then

caindy

[<AutoOpen>]
module Auto =
  type Result<'s, 'f> =
  | Success of 's
  | Failure of 'f
  open System
  open System.Runtime.CompilerServices
  open System.Collections.Generic
  open Newtonsoft.Json.Linq