Daniel Chambers daniel-chambers

I hereby claim:

To claim this, I am signing this object:

	let fizzDiv ys str x =
	if ys \|> List.forall (fun y -> x % y = 0)
	then Some str
	else None

	let fizzBuzzChecks x =
	(fizzDiv [3;5] "FizzBuzz" x)
	\|> Option.orElse (fizzDiv [5] "Buzz" x)
	\|> Option.orElse (fizzDiv [3] "Fizz" x)
	\|> Option.defaultValue (string x)

	module Main where

	import Lib
	import Data.Monoid
	import Data.Map (Map)
	import Data.Maybe
	import qualified Data.Map as Map
	import Control.Concurrent (threadDelay)
	import Control.Concurrent.Async
	import Control.Applicative.Free

	public static class AadExtensions
	{
	public static async Task<IEnumerable<IUser>> GetAllUsersInAppRoleAsync(
	this IActiveDirectoryClient client,
	string servicePrincipalObjectId,
	string appRoleId)
	{
	var guidAppRoleId = Guid.Parse(appRoleId);
	var appRoleAssignmentsPaged = await client.ServicePrincipals
	.GetByObjectId(servicePrincipalObjectId)

	var system = require('system'),
	env = system.env;

	/**
	* Wait until the test condition is true or a timeout occurs. Useful for waiting
	* on a server response or for a ui change (fadeIn, etc.) to occur.
	*
	* @param testFx javascript condition that evaluates to a boolean,
	* it can be passed in as a string (e.g.: "1 == 1" or "$('#bar').is(':visible')" or
	* as a callback function.

	type Building = {
	left : int
	right : int
	height : int
	}

	let buildings : Building[] = [\| (* ... *) \|]

	let getHeight building = building.height
	let getWidth building = building.right - building.left