khigia

type 'a tst_t =
  | E
  | N of 'a tst_t * 'a tst_t * 'a tst_t * char * 'a option

khigia

#!/bin/bash

if [ "$#" -lt 2 ]
then
  cat<<EOF
  Usage: $0 N <cmd>
    Run <cmd> with a timeout of N seconds.
    return result of <cmd>.
    (<cmd> run in background process and is killed on timeout).
EOF

khigia

class MyNumericUpDown : NumericUpDown
{
    protected override void OnMouseWheel (MouseEventArgs e)
    {
        // remove scrolllines scaling, taking care of case scrolllines is 0
        int delta = e.Delta / Math.Max (Math.Abs (SystemInformation.MouseWheelScrollLines), 1);
        base.OnMouseWheel (new MouseEventArgs (e.Button, e.Clicks, e.X, e.Y, delta));
    }
}

khigia

public static V GetValueOrDefault<K, V>(this Dictionary<K, V> dic, K key, V defaultVal)
{
    V ret;
    return dic.TryGetValue (key, out ret) ? ret : defaultVal;
}

khigia

-- e.g. Find bases for which bday is palindre: findPal YYYYMMDD [2..1000]
-- or compile and run: echo YYYYMMDD | bdaypalbase

findPal bases n =
  filter (Nothing /=) [isPal n b | b <- bases]

isPal n b =
  if pal then Just (n, b, digits) else Nothing
  where
    digits = toDigits n b