gofer

(* MLton用 ORD_KEY signature *)
signature ORD_KEY =
sig
  type ord_key
  val compare : (ord_key * ord_key) -> order;
end;

(* 赤黒木のシグネチャ *)
signature RED_BLACK_TREE =
sig

gofer

fun shuffle xs = let
  val rand = let
    val seed = let
      val  max = IntInf.fromInt (
        case(Int.maxInt) 
          of (Option.SOME max) => max 
           |  Option.NONE      => raise Fail("Can't get Int.maxInt")
      );
      val time = Time.now ();
      val (_, seed1) = IntInf.divMod (Time.toSeconds      time, max);

gofer

(* クイックソート *)
(* val qsort = fn : ('a * 'a -> order) -> 'a list -> 'a list *)
(* val takePivot = fn : ('a * 'a -> order) -> 'a list -> 'a *)
fun qsort compare nil = nil
  | qsort compare [x] = [x]
  | qsort compare xs = 
  let
    val pivot = takePivot compare xs;
    val (ys, zs) = List.foldr (
      fn (v, (ys, zs)) => 

gofer

const I = (x) => x;
const K = (x) => (y) => x;
const S = (x) => (y) => (z) => x (z) (y (z));

const SII = (x) => S (I) (I) (x);
const KSII = (x) => K (SII) (x);

const Y = (x) => S (KSII) (S (S (K (S)) (K)) (KSII)) (x);

const T = K;

gofer

(* subList : 'a list -> 'a list list *)
fun subList v = 
  List.foldl
    List.@ 
    [ nil ]
    (
      List.map 
        (
          fn x => (
            fn v =>

gofer

require 'prime'

N = 100000

def nth_prime(n)
  Prime.each.take(n).last
end

def power(x, n)
  if n <= 1 then

gofer

GCC_HOME=/usr/local/gcc-5.2.0
GLIBC_HOME=/home/gofer/.local/glibc-2.22
OBJS_HOME=$(GCC_HOME)/lib/gcc/x86_64-unknown-linux-gnu/5.2.0

CC=gcc
CCFLAGS=-std=c99 -Wall -O3
LDFLAGS=--eh-frame-hdr -m elf_x86_64
#LDFLAGS+=-nostdlib -nostartfiles -static
LDFLAGS+=-rpath $(GLIBC_HOME)/lib -dynamic-linker=$(GLIBC_HOME)/lib/ld-linux-x86-64.so.2
LDFLAGS+=-L$(GCC_HOME)/lib -L$(GCC_HOME)/lib64 -L$(GLIBC_HOME)/lib -L$(OBJS_HOME) -R$(GLIBC_HOME)/lib

gofer

FROM alpine:latest

MAINTAINER Gofer (@gofer_ex) <[email protected]>

ARG nsd_version=4.1.14
ARG control_port=8952

ENV NSD_VERSION=$nsd_version
ENV CONTROL_PORT=$control_port

gofer

How to build?

as -32 -o ./main.o ./main.s
ld -m elf_i386 -T ld.script -o ./a.out ./main.o
objcopy -j .text -j .data -O binary ./a.out ./boot.text.bin

gofer

# Contributor: Gofer <[email protected]>

pkgname=hello
pkgver=2.10
pkgrel=1
pkgdesc="The GNU Hello program produces a familiar, friendly greeting."
arch=('i686' 'x86_64')
url="https://www.gnu.org/software/hello/"
license=('GPL')
depends=('glibc')