talyian

// An exercise in converting a regex to an NFA to a DFA

type RegexNode =
    | Or of RegexNode list
    | Seq of RegexNode List
    | Star of RegexNode
    | T of string
    | Eta (* todo: does this value really belong here? *)

let regex_pattern = "x(x|y)*|z"

talyian

0000000000001640 <fib_SpYa5EuiU0areDDc1bSasA(unsigned long long)>:
    1640:	48 83 ff 01          	cmp    $0x1,%rdi
    1644:	b8 01 00 00 00       	mov    $0x1,%eax
    1649:	77 05                	ja     1650 <fib_SpYa5EuiU0areDDc1bSasA(unsigned long long)+0x10>
    164b:	f3 c3                	repz retq 
    164d:	0f 1f 00             	nopl   (%rax)
    1650:	41 57                	push   %r15
    1652:	41 56                	push   %r14
    1654:	4c 8d 77 fe          	lea    -0x2(%rdi),%r14
    1658:	41 55                	push   %r13

talyian

POC of applying some Async primitives to a Poker game for a discussion on async from gamedev.stackexchange.com

talyian

jimmy@4f9659dd76f5:~$ sudo apt-key adv --keyserver hkp://keyserver.ubuntu.com:80 --recv-keys 3FA7E0328081BFF6A14DA29AA6A19B38D3D831EF
Executing: gpg --ignore-time-conflict --no-options --no-default-keyring --secret-keyring /tmp/tmp.I6Cq8DlByE --trustdb-name /etc/apt//trustdb.gpg --keyring /etc/apt/trusted.gpg --primary-keyring /etc/apt/trusted.gpg --keyring /etc/apt/trusted.gpg.d//debian-archive-jessie-automatic.gpg --keyring /etc/apt/trusted.gpg.d//debian-archive-jessie-security-automatic.gpg --keyring /etc/apt/trusted.gpg.d//debian-archive-jessie-stable.gpg --keyring /etc/apt/trusted.gpg.d//debian-archive-squeeze-automatic.gpg --keyring /etc/apt/trusted.gpg.d//debian-archive-squeeze-stable.gpg --keyring /etc/apt/trusted.gpg.d//debian-archive-wheezy-automatic.gpg --keyring /etc/apt/trusted.gpg.d//debian-archive-wheezy-stable.gpg --keyserver hkp://keyserver.ubuntu.com:80 --recv-keys 3FA7E0328081BFF6A14DA29AA6A19B38D3D831EF
gpg: requesting key D3D831EF from hkp server keyserver.ubuntu.com
gpg: /etc/apt//trustd

talyian

Advent of Code 2017 Solutions

talyian

#nowarn "9"
open System
open System.Runtime.InteropServices

[<StructLayout(LayoutKind.Sequential)>]
type DEVMODEInfo = struct
    [<MarshalAs(UnmanagedType.ByValTStr, SizeConst=32)>]
    [<DefaultValue>] val mutable dmDeviceName : string
    [<DefaultValue>] val mutable dmSpecVersion: int16; 
    [<DefaultValue>] val mutable dmDriverVersion: int16; 

talyian

#include <ESP8266WiFi.h>

const int BUZZER_INPUT_IO = 5;
const int DOOR_OUTPUT_IO = 4;
const int LED_IO = 0;

enum { STARTING, READY, NOTIFYING, OPENING };

void setup() {
  Serial.begin(115200);

talyian

<style>body { background: black; } #cv { display:block; margin:auto; }</style>
<canvas id='cv' width='800' height='800'></canvas>
<script id=frag type='x-shader/fragment'>
 precision highp float;
 varying vec2 _pos;
 void main() {
     vec2 c = _pos * 1.5 - vec2(0.7, 0), z;
     for(int i = 0; i < 64; i++) {
         z = vec2(z.x * z.x - z.y * z.y, 2.0 * z.x * z.y) + c;
         gl_FragColor = vec4(vec3((float(i) - log(log(length(z)))) / 64.0), 1);

talyian

// The Computer Language Benchmarks Game
// http://benchmarksgame.alioth.debian.org/
//
// contributed by Reed Adams
// *reset*

open System


type Node =

talyian

EVAL=(lambda F,B,V,P,T:lambda e:F(T(e),F,P,B(B,V))[0])(
    lambda t,f,p,b: [p(p,t,(lambda x:b(('+','-'),b(('*','/'),x))))],
    lambda b,e: lambda ops,t,i=0: t if i >= len(t) else b(b,e)(ops,(t.__setslice__(i-1,i+2,[e(t[i],t[i-1],t[i+1])]) or t),i) if t[i] in ops else b(b,e)(ops,t,i+1),
    lambda o,x,y: {'+':lambda a,b:a+b, '-':lambda a,b:a-b, '*':lambda a,b:a*b, '/':lambda a,b:a/b}[o](float(x), float(y)),
    lambda p, t, f: f((lambda s,e:t.__setslice__(s,e+1,[p(p,t[s+1:e], f)]) or t)(t.index('('),len(t)-1-t[::-1].index(')')) if '(' in t else t)[0],
    lambda e: [x for x in __import__('re').split('(\\d+|.)', e.replace(' ', '')) if x],
)
print EVAL("3 - 5 - 4 - 3");
print EVAL("3 * 5 +  4 / 3");
print EVAL("3 * (5 +  4) / 2");