euhmeuh

def ascii_to_xbm(string, black='#', white=' '):
    """Generate a XBM image from an ascii art string"""

    # purify input by removing all empty lines
    # and all lines that contains illegal characters
    lines = []
    for line in string.split('\n'):
        if not line:
            continue
        if not all([c in (black, white) for c in line]):

euhmeuh

del %LocalAppData%\Microsoft\VisualStudio\14.0\ComponentModelCache
"C:\Program Files (x86)\Microsoft Visual Studio 14.0\Common7\IDE\devenv.exe" /setup
pause

euhmeuh

REM sometimes you need to kill explorer.exe
psexec -i -s cmd.exe
takeown /F directory /R /A

euhmeuh

# crf is the quality between 0 (lossless) and 51 (worst)
ffmpeg -i input.mp4 -vcodec libx264 -crf 20 output.mp4

euhmeuh

using System;
using System.ServiceModel;
using System.ServiceModel.Description;
using System.ServiceModel.Web;
using System.Threading;

namespace SoapServer
{
    public class Program
    {

euhmeuh

/*
    Brainfuck interpreter by euhmeuh
*/

#include <stdlib.h>
#include <stdio.h>
#include <stdbool.h>

#include <errno.h>
#include <string.h>

euhmeuh

(module
  (import "console" "log" (func $log (param i32) (param i32)))
  (import "game" "update" (func $update))

  (memory 1)

  (func $init (export "init") (param $width i32) (param $height i32)
    get_local $width
    get_local $height
    i32.mul

euhmeuh

;; Scheme hygienic aif is too long :(
;;
;; (define-syntax aif
;;   (lambda (x)
;;     (syntax-case x ()
;;       ((_ test then else)
;;        (with-syntax ((it (datum->syntax x 'it)))
;;          (syntax
;;            (let ((it test))
;;              (if it then else))))))))

euhmeuh

Name grouping and replacement

Named group is formed with (?<name>).
Captured text can be inserted in result using $+{name}.

Example text: <foo><bar>Hello</bar> <baz>World!</baz></foo>
In the regex: <foo><bar>(?<message>.+)</bar> <baz>(?<object>.+)</baz></foo>
Replace by: <message object="$+{object}">$+{message}</message>

euhmeuh

#lang racket

(require math racket/trace)

(define T matrix-transpose)

(define (sigmoid x)
  (/ (+ 1.0 (exp (- x)))))

(define (sigmoid-deriv x)