bcc32

(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 '())

bcc32

#!/usr/bin/env ruby -w

program = ARGF.read.tr('^[],.<>+-', '')

c_program = []

label_counter = -1
labels = []

program.each_char do |c|

bcc32

Keybase proof

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:

bcc32

#include <functional>
#include <algorithm>
#include <iostream>
#include <fstream>
#include <sstream>
#include <iomanip>
#include <numeric>
#include <cstdlib>
#include <cstring>
#include <climits>

bcc32

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 *)

bcc32

-----BEGIN PGP PUBLIC KEY BLOCK-----

mQENBFN98KEBCACmtmyQDSG2u5WoQ1Bxk/D4+S/SZ2oXpoT9uraT5whibBt0ecMA
mA+Z1gaIEV5cTcWvRlCmCLTDYXDuSB8Otnq1BDBBWDDzXCEYUCIbVqLUVgyotv8b
VuStaiNcmZL3aiE+anrThm6XVmtB2TBBieFHAbienR4+bsqLydB1OW/LJzbKNKID
BG4rVAlcHVJzfBm2bt5C6usC0FqhMEKIRoQOYwKe9qW/817PNwb4NVY8KyZA49Ku
R9Wc3emuvThu9NCMGJI8bSuZW11PtSyda4ex0hXyQaX69TgffG0avwTjz1esAQfS
rUEw54TbKmdaTbd/TbzEK5qi1F5oV8E94ls9ABEBAAG0JkFhcm9uIEwuIFplbmcg
PHplbmcuYWFyb24ubEBnbWFpbC5jb20+iQE8BBMBCAAmAhsDBwsJCAcDAgEGFQgC
CQoLBBYCAwECHgECF4AFAlifd3QCGQEACgkQtoMMVkrXRYR+awgAnBuepcYlTBT2

bcc32

use 5.016;
use warnings;
use autodie;

use File::Spec;
use File::stat;
use POSIX qw(strftime);

# rename_noclobber($old, $new);
#

bcc32

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 }

bcc32

(* 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

bcc32

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)