flq

module Ast

open System

type slotDeclaration= {
  Index : int
  Name : string
  Size : int
}

flq

-- http://projecteuler.net/problem=1
sum [x | x <- [0..999], any (\d -> mod x d == 0) [3,5]]

flq

// Use like BusSetup.StartWith<Conservative>().Apply<UiMessages>().Construct();

internal class UiMessages : ISetup<IConfigurableBus>
{
    void ISetup<IConfigurableBus>.Accept(IConfigurableBus setup)
    {
        setup.ConfigurePublishing(obj => 
        {
            obj.MessageMatch(mi => mi.IsType<IUIMsg>()).PublishPipeline(new UiMsgDispatcher());
        });

flq

module Main where

  import Control.Monad
  import Data.List (maximumBy,minimumBy,find,(\\))
  import Data.Ord
  import Graphics.UI.SDL as FX

  type Point = (Int,Int)
  type MovementPattern = [(Movement, [(Int, Int)] -> Bool)]

flq

module Josephus where

  import Data.List

  -- own, atrocious solution to josephus problem
  lastSurvivor :: Int -> Int
  lastSurvivor 1 = 1
  lastSurvivor noOfPeople = fst . last $ unfoldr theSurvivors (1,(1,[])) where
    theSurvivors (person, (count, theKilled))
      | length theKilled == noOfPeople - 1 = Just (countOn, breakCondition)

flq

A collection of FizzBuzz implementations over many languages. The specification goes something like this...

Write a program that prints the numbers from 1 to 100. But for multiples of three print “Fizz” instead of the number and for the multiples of five print “Buzz”. For numbers which are multiples of both three and five print “FizzBuzz”.

The expected outcome is something like:

1,2,Fizz,4,Buzz,Fizz,7,8,Fizz,Buzz,
11,Fizz,13,14,FizzBuzz,16,17,Fizz,19,Buzz,

Fizz,22,23,Fizz,Buzz,26,Fizz,28,29,FizzBuzz,

flq

- Cloned from a remote repository
- Initialized an empty repository
- Pulled from a remote repository
- Made first commit
- Pushed to a remote repository
- Made first local branch
- Pushed a new branch
- Added a second remote
- Merged a branch into another one
- Deleted a local branch

flq

using System;
using System.Configuration;
using System.Diagnostics;
using System.IO;

namespace DifftoolStarter
{
    class Program
    {
        static void Main(string[] args)

flq

function zzz { 
  $source = @"
      [DllImport("powrprof.dll")]
      public static extern void SetSuspendState(bool hibernate, bool forceCritical, bool disableWakeEvent);
"@
  $app = Add-Type -Namespace "Standby" -MemberDefinition $source -Name Sleep -PassThru;
  $app::SetSuspendState($false,$true,$false);
}

flq

public decimal GetTaxes(decimal salary)
{
	decimal tax = 0;

	var progressiveTaxation = new[] { 0.1m, 0.14m, 0.23m, 0.3m, 0.33m, 0.45m };
	var progressionSlices = new[] { 5070 - 0, 8660 - 5070, 14070 - 8660, 21240 - 14070, 40230 - 21240, decimal.MaxValue };

	var progression = 0;

	while (salary > 0)