Skip to content

Instantly share code, notes, and snippets.

View haruyama's full-sized avatar
🌴
On vacation

HARUYAMA Seigo haruyama

🌴
On vacation
View GitHub Profile
#!/usr/bin/env ruby
# -*- encoding: utf-8 -*-
L2_COEFF = 1
RATE = 10
TAGIDS = Hash.new { |hash, key| hash[key] = hash.size }
TAGIDS['<S>'] = 0
def dot(x, y)
@haruyama
haruyama / gist:7869684
Created December 9, 2013 09:33
file dumper
import ceylon.file { File, Path, parsePath }
import ceylon.io { OpenFile, newOpenFile }
import ceylon.io.charset { utf8, Decoder }
import ceylon.io.buffer { ByteBuffer }
import java.util { ArrayList }
shared void cat(String filename) {
Path path = parsePath(filename);
OpenFile file = newOpenFile(path.resource);
(find-assertions (query-syntax-process '(job ?x (computer programmer)))
(singleton-stream '()))
@haruyama
haruyama / gist:3b429ef86d3a74ece040
Created June 6, 2014 09:10
Unixuser\Slim\CsrfGuard
<?php
// Copyright (c) HARUYAMA Seigo
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is furnished
// to do so, subject to the following conditions:
//
@haruyama
haruyama / gist:641aebe049050d01bb0b
Created July 21, 2014 14:46
unite_lua_filter_head.patch
diff --git a/autoload/unite/filters.vim b/autoload/unite/filters.vim
index 0156643..d7af4f5 100644
--- a/autoload/unite/filters.vim
+++ b/autoload/unite/filters.vim
@@ -158,9 +158,9 @@ do
local input = vim.eval('tolower(a:input)')
local candidates = vim.eval('a:candidates')
for i = #candidates-1, 0, -1 do
- local word = string.lower(candidates[i].action__path)
- or string.lower(candidates[i].word)
// +build OMIT
package main
import (
"errors"
"fmt"
"math/rand"
"sort"
@haruyama
haruyama / hoge
Created August 4, 2014 10:47
hoge
(unify-match 1 '(? x)
(singleton-stream '()))
(unify-match '(? x) 1
(singleton-stream '()))
(unify-match '(? x) '(? x)
(singleton-stream '()))
;(query-syntax-process '(?x ?x))
@haruyama
haruyama / lychrel.c
Last active August 29, 2015 14:26
lychrel number
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#include <gmp.h>
bool check_symmetry(mpz_t i)
{
char* s = mpz_get_str(NULL, 10, i);
size_t len = strlen(s);
@haruyama
haruyama / godeb_workaround.sh
Last active October 29, 2018 18:01 — forked from mojotx/godeb_workaround.sh
Workaround for godeb issue generating errors, "corrupted filesystem tarfile - corrupted package archive"
#!/bin/bash
#####################################################################
# Work-around for godeb issue
# assumes godeb is available using $GOPATH
# You can specify version on the command line,
# or else it will try and grab the latest
#####################################################################
set -e
@haruyama
haruyama / cVim.vim
Last active February 10, 2018 11:54
let blacklists = ["https://mail.google.com/*", "*://mail.google.com/*", "@https://mail.google.com/mail/*", "https://twitter.com/*", "https://www.facebook.com/*", "https://feedly.com/*"]
map 1G scrollToTop