gofer

expires\s*=\s*(Sun|Mon|Tue|Wed|Thu|Fri|Sat),\s*(\d{2})\s*-\s*(Jan|Feb|Mar|Apl|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\s*-\s*(\d{4})\s*(\d{2}):(\d{2}):(\d{2})\s*(GMT|JST)\s*;

gofer

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

(* 2分木のシグネチャ *)

gofer

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

(* 2分木のシグネチャ *)

gofer

#include <sstream>
#include <cmath>

template<typename T>
struct Vector2DBase
{
	T x, y;
	
	Vector2DBase()                      : x(0.0), y(0.0) {}
	Vector2DBase(T x, T y)              : x(x),   y(y)   {}

gofer

class HTTP_Digest
	def initialize(uri)
		@uri = uri
		
		req = Net::HTTP::Get.new(@uri.path)
		res = Net::HTTP.new(@uri.host, @uri.port).start { |http|
			http.request(req)
		}
		
		@digest_hash = {}

gofer

ffmpeg -y -i input.ts -movflags faststart \
 -f mp4 -vcodec libx264 -fpre /usr/local/share/ffmpeg/libx264.ffpreset -r 30000/1001 \
 -aspect 16:9 -s 1440x1080 -bufsize 20000k -maxrate 25000k -vsync 1 \
 -acodec libfaac -ac 2 -ar 48000 -ab 320k output.mp4 -map "0.0" -map "0.1"
# ffmpeg -y -i input.ts -movflags faststart -f mp4 -vcodec libx264 -fpre  -r    
# 14839.19s user 26.57s system 691% cpu 35:49.17 total

gofer

	.align 8
	.text
	.globl linux_fast_abs64
linux_fast_abs64:
	movq	%rdi,	%rax	# rax <- x
	sarq	$63,	%rax	# rax <- rax >> 63
	xorq	%rax,	%rdi	# rdi <- rdi ^ rax
	subq	%rax,	%rdi	# rdi <- rdi - rax
	movq	%rdi,	%rax	# rax <- rdi
	retq

gofer

fun op ** (a, b) = let
  val succ = fn x => x + 1
  val pred = fn x => x - 1
  val c = if a < b then succ a else pred a
in
  if a = b then [a] else a::(op ** (c ,b))
end;
infix **;

fun op *** (a, b) = let

gofer

#!/usr/bin/env perl

################################################################################
# Vyattaのhoeg{~~~}形式をset ~~~形式に変換するスクリプト
################################################################################

use strict;
use warnings;
use constant true  => 1;
use constant false => 0;

gofer

signature SetSig = 
sig
  val empty     : ''a list
  val is_in     : ''a -> ''a list -> bool
  val is_not_in : ''a -> ''a list -> bool
  val rm_elem   : ''a -> ''a list -> ''a list
  val isect     : ''a list -> ''a list -> ''a list
  val union     : ''a list -> ''a list -> ''a list
  val diff      : ''a list -> ''a list -> ''a list
end