Ummon’s gists

Ummon / gist:3751687

Created September 19, 2012 19:26

Haskell > Scala

	countChange :: Int -> [Int] -> Int
	countChange money coins =
	let
	applyFactors factors = (if (sum $ zipWith (*) coins factors) == money then 1 else 0) +
	if all (== money) factors then 0
	else
	applyFactors (nextFactors factors)
	where
	nextFactors (x : xs)
	\| x == money = 0 : (nextFactors xs)

Ummon / gist:3754848

Created September 20, 2012 09:15

Haskell > Scala (2)

	countChange :: Int -> [Int] -> Int
	countChange 0 _ = 1
	countChange _ [] = 0
	countChange money coins@(x:xs)
	\| money < 0 = 0
	\| otherwise = (countChange money xs) + (countChange (money - x) coins)

Ummon / gist:3907996

Created October 17, 2012 20:36

Qt Creator 2.6RC says “expected token `;’ got `{‘

QList<QList<File*>*> fileLists { &this->filesWithoutHashesPrioritized, &this->filesWithoutHashes };

Ummon / NewtworkManagerConnection.cs

Created December 17, 2012 10:18

To control the Network Manager on Ubuntu with DBUS and C#/Mono. D-BUS documentation: * The D-BUS Network Manager: http://projects.gnome.org/NetworkManager/developers/api/09/spec.html#org.freedesktop.NetworkManager.Settings.Connection * The D-BUS C# free library: https://github.com/mono/dbus-sharp and http://www.ndesk.org/DBus_Documentation * D-B…

	using System;
	using System.Collections.Generic;
	using System.Diagnostics;
	using System.Linq;
	using System.Net;
	using DBus;

	namespace IPChangerPrototype
	{
	public enum Method

Ummon / Program.cs

Last active December 22, 2015 05:09

IntString

	using System;

	namespace ExperimentationsCSharp
	{
	public struct IntString : IEquatable<IntString>, IComparable<IntString>
	{
	int value;

	public IntString(int v)
	{

Ummon / Program.fs

Created October 8, 2015 15:42

Module 2 - Problem

	open System

	let rec readAge () : int =
	printf "Age: "
	match Int32.TryParse(Console.ReadLine()) with
	\| true, age when age > 0 -> age
	\| _ ->
	printfn "Cannot read the age, please retry.."
	readAge ()

Ummon / toRoman.fsx

Created November 10, 2017 21:23

Transform an integer to a roman numeral

	#!/usr/bin/env fsharpi

	let elements = [ "M", 1000; "CM", 900; "D", 500; "CD", 400; "C", 100; "XC", 90; "L", 50; "XL", 40; "X", 10; "IX", 9; "V", 5; "IV", 4; "I", 1 ]

	let rec toRomanNumber (v : int) : string =
	if v >= 1 then
	let e, v' = elements \|> List.find (snd >> (>=) v)
	e + toRomanNumber (v - v')
	else
	""

Ummon / Day 20 sample

Created December 20, 2017 06:52

Ummon / Day 20 input - Greg

Created December 20, 2017 12:20

Ummon / Day 20 input - Ben

Created December 20, 2017 12:20

Greg Burri Ummon