kmizumar

long gepoch(int y, int m, int d) {
    y += 4800;
    if (m < 3) --y, m += 12;
    return 365L*y+y/4-y/100+y/400+(153*m-457)/5+d-32045;
}
long jepoch(int y, int m, int d) {
    y += 4716;
    if (m < 3) --y, m += 12;
    return 365L*y+y/4+(153*month-457)/5+day-1402;
}

kmizumar

lolouila:maru% cat ext/tls/ssltest.log                                                                            [~/github/Gauche]
All AES tests passed
All RC4 tests passed
All MD5 tests passed
All SHA1 tests passed
All HMAC tests passed
All BIGINT tests passed
All RSA tests passed
Error: Invalid X509 ASN.1 file (Unsupported digest)
Error: Invalid X509 ASN.1 file (Unsupported digest)

kmizumar

public class Node {
    public Node next;
    public String label;

    public Node(String label, Node next) {
        this.label = label;
        this.next = next;
    }

    public void dump() {

kmizumar

#!/usr/bin/env gosh

(use gauche.parseopt)
(use math.mt-random)
(use util.match)

(define (p . args) (for-each print args))

(define (usage)
  (p (format #f "Usage: ~a srcfile ratio trainfile testfile" *program-name*)

kmizumar

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE project>

<project name="mapreduce" default="jar" basedir="./">

  <taskdef resource="testngtasks" classpath="lib/testng-6.0.1.jar"/>
  <property file="build.properties" />

  <property name="base.src" value="${basedir}/src/base"/>
  <property name="benchmark.src" value="${basedir}/src/benchmark/"/>

kmizumar

#!/usr/bin/env gosh
(use gauche.generator)
(use slib)
(require 'format)

(define (main args)
  (let ((mod3 (circular-generator #f #f #t))
        (mod5 (circular-generator #f #f #f #f #t))
        (nums (giota 100 1)))
    (do-generator [out (gmap

kmizumar

# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
# $Id: Portfile 96552 2012-08-14 04:32:45Z [email protected] $

PortSystem 1.0

name                gauche-devel
version             0.9.4_pre2
categories          lang scheme
license             BSD
maintainers         gmail.com:kiyoshi.mizumaru

kmizumar

select a.row_num as row, b.col_num as col, sum(a.value * b.value) as val
  from a, b
  where a.col_num = b.row_num
  group by a.row_num, b.col_num
;

kmizumar

#!/usr/bin/env gosh
;;
;; tokyobench csv output report
;;
(use gauche.parseopt)
(use gauche.record)
(use slib)
(use text.csv)
(use util.match)

kmizumar

#!/usr/bin/env gosh
;;
;; sss server log output report
;;
(use gauche.parseopt)
(use gauche.record)
(use slib)
(use text.csv)
(use util.match)