Skip to content

Instantly share code, notes, and snippets.

@flq
flq / ast.fs
Last active Aug 29, 2015
Lexing and Parsing in F# on Cobol
View ast.fs
module Ast
open System
type slotDeclaration= {
Index : int
Name : string
Size : int
}
@flq
flq / Permutation.hs
Last active Aug 29, 2015
No-frills permutation code in Haskell
View Permutation.hs
module Permutation where
permutate :: [a] -> [[a]]
permutate [x1,x2] = [[x1,x2],[x2,x1]]
permutate items = concat $ map p $ getEachInFrontOnce items
where
p (x:xs) = map (\items -> [x]++items) $ permutate xs
getEachInFrontOnce items = map (putItemAtIndexToFront items) [0..length items-1]
putItemAtIndexToFront items idx = [items!!idx] ++ take idx items ++ drop (idx+1) items
View A copy op preserving relative folder structure
$a = pwd
ls -r |
? { !$_.name.Contains(".g.") } |
? { $_.Extension -eq ".cs" -or $_.Extension -eq ".csproj" } |
? { $_.lastwritetime -gt [DateTime]::Now.AddHours(-6) } |
% {
$relative = $_.fullname.Replace($a.Path + "\","")
$Path = [System.IO.Path]::GetDirectoryName($relative)
mkdir c:\temp\$path -erroraction SilentlyContinue
Copy-Item -path $relative -destination c:\temp\$path
@flq
flq / RelayCommand
Created Feb 18, 2011
A command that runs on delegates and implements WPF ICommand
View RelayCommand
using System;
using System.Windows.Input;
namespace Something
{
public class RelayCommand : ICommand
{
private readonly Func<object, bool> _canExecute;
private readonly Action<object> _execute;
@flq
flq / HelpController.cs
Created May 6, 2011
Current Fubu registry
View HelpController.cs
using FubuMVC.Core;
namespace CharmSim.Controllers
{
public class HelpController
{
public HelpViewModel Start()
{
return new HelpViewModel { Title = "Hello from Controller! " };
}
@flq
flq / tax.cs
Created Sep 22, 2011
the tax thingy
View tax.cs
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)
@flq
flq / zzz.ps1
Created Feb 9, 2012
Powershell function to bring your PC to sleep
View zzz.ps1
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
flq / Program.cs
Created Sep 14, 2012
Prog to start a difftool and remap the files as they are deleted by git in order to open all files at once
View Program.cs
using System;
using System.Configuration;
using System.Diagnostics;
using System.IO;
namespace DifftoolStarter
{
class Program
{
static void Main(string[] args)
@flq
flq / EntryPoint.ts
Last active Oct 10, 2015
Gists for the blog post porting react app to tyescript
View EntryPoint.ts
import {assign} from 'lodash'
function startModule() {
//etc.
}
global['Project'] = assign(global['Project'] || {}, {
startModule
});
View git achievements
- 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