manonthemat

data Tree =
      Leaf
    | Node Int Tree Tree
    deriving Show

treeDepth :: Tree -> Int
treeDepth Leaf = 0
treeDepth (Node _ a b) = 1 + max (treeDepth a) (treeDepth b)

treeSum :: Tree -> Int

manonthemat

Benefits Application

Project Scope

A benefits application where organizations (e.g. companies) can contribute funds regularly (always on the first day of a month) to the benefits accounts of individuals (e.g. employees).

Individuals should have detailed and aggregate insights into their benefits. Funds in a benefit account can be spent with suitable service providers.

Deliverables

manonthemat

#!/bin/sh
for node in $(which -a cardano-node); do
  echo "$node has version:"
  $node --version
done

manonthemat

open System

//let input = IO.File.ReadAllLines("sample.txt") |> Array.head
let input = IO.File.ReadAllLines("data.txt") |> Array.head

let indexOfFirstMarker (windowSize: int) (input: string) : int =
    input.ToCharArray()
    |> Array.windowed windowSize
    |> Array.takeWhile (fun xs -> Array.distinct xs |> Array.length <> windowSize)
    |> Array.length

manonthemat