I hereby claim:
- I am bcc32 on github.
- I am a2z (https://keybase.io/a2z) on keybase.
- I have a public key ASA4OFR9t5JwEofDtkO4QsNCEGvpY-iF2JVUPuQaetCRwQo
To claim this, I am signing this object:
(define-syntax stream-cons | |
(syntax-rules () | |
((_ h t) | |
(cons h (delay t))))) | |
(define stream-car car) | |
(define (stream-cdr stream) | |
(force (cdr stream))) | |
(define stream-nil '()) |
#!/usr/bin/env ruby -w | |
program = ARGF.read.tr('^[],.<>+-', '') | |
c_program = [] | |
label_counter = -1 | |
labels = [] | |
program.each_char do |c| |
I hereby claim:
To claim this, I am signing this object:
#include <functional> | |
#include <algorithm> | |
#include <iostream> | |
#include <fstream> | |
#include <sstream> | |
#include <iomanip> | |
#include <numeric> | |
#include <cstdlib> | |
#include <cstring> | |
#include <climits> |
module type Int = sig | |
val one : int | |
val (+) : int -> int -> int | |
end | |
module Make (Int : Int) = struct | |
(* this assertion must fail in order to make the linker command fail *) | |
let () = assert false | |
(* this assertion doesn't matter *) |
-----BEGIN PGP PUBLIC KEY BLOCK----- | |
mQENBFN98KEBCACmtmyQDSG2u5WoQ1Bxk/D4+S/SZ2oXpoT9uraT5whibBt0ecMA | |
mA+Z1gaIEV5cTcWvRlCmCLTDYXDuSB8Otnq1BDBBWDDzXCEYUCIbVqLUVgyotv8b | |
VuStaiNcmZL3aiE+anrThm6XVmtB2TBBieFHAbienR4+bsqLydB1OW/LJzbKNKID | |
BG4rVAlcHVJzfBm2bt5C6usC0FqhMEKIRoQOYwKe9qW/817PNwb4NVY8KyZA49Ku | |
R9Wc3emuvThu9NCMGJI8bSuZW11PtSyda4ex0hXyQaX69TgffG0avwTjz1esAQfS | |
rUEw54TbKmdaTbd/TbzEK5qi1F5oV8E94ls9ABEBAAG0JkFhcm9uIEwuIFplbmcg | |
PHplbmcuYWFyb24ubEBnbWFpbC5jb20+iQE8BBMBCAAmAhsDBwsJCAcDAgEGFQgC | |
CQoLBBYCAwECHgECF4AFAlifd3QCGQEACgkQtoMMVkrXRYR+awgAnBuepcYlTBT2 |
(* https://discuss.ocaml.org/t/efficiently-checking-if-map-set-is-singleton/1611/2 *) | |
open! Core | |
open Core_bench | |
let bench = Bench.Test.create_indexed ~args:[ 1; 10; 100; 1000; 10_000 ] | |
module type Map = sig | |
type 'data t |
use 5.016; | |
use warnings; | |
use autodie; | |
use File::Spec; | |
use File::stat; | |
use POSIX qw(strftime); | |
# rename_noclobber($old, $new); | |
# |
module Greeter = struct | |
type t = unit | |
let create () = () | |
let addressee _t = "World" | |
let greet _t = "Hello, " ^ addressee _t | |
end | |
module Name_greeter = struct | |
type t = { name : string } |
require 'pathname' | |
src = ARGV[0] | |
dst = ARGV[1] | |
src = "#{src}/" unless src.end_with?("/") | |
dst = "#{dst}/" unless dst.end_with?("/") | |
src = Pathname.new(src) | |
dst = Pathname.new(dst) |