Skip to content

Instantly share code, notes, and snippets.

View alucky0707's full-sized avatar

Hoshinoma Araki alucky0707

11 followers · 3 following
  • Saitama, Japan
View GitHub Profile
@alucky0707
alucky0707 / AOJ0202.cs
Last active December 27, 2015 15:49
AOJ 0202 solution by C#
using System;
namespace AOJ
{
class AOJ0202
{
static void Main(string[] args)
{
var ps = Prims(1000000);
@alucky0707
alucky0707 / RegexExample.java
Created November 2, 2013 04:33
JavaでJavaScriptのように正規表現で置換する ref: http://qiita.com/alucky0707/items/ab1babc0bcde9f3e4ef6
import java.util.List;
import java.util.regex.MatchResult;
import java.util.regex.Pattern;
public class RegexSample {
static public void main(String... args) {
String str = "Trick or Treat";
Pattern pat = Pattern.compile("[a-zA-Z]");
String rep = Replacer.replace(str, pat, new ReplaceCallback() {
@alucky0707
alucky0707 / fizzbuzz.pro
Created October 11, 2013 10:57
PrologでFizzBuzz書きましたー。なんかPrologっぽくない
fizzbuzz(N, "FizzBuzz") :- 0 is N mod 15, !.
fizzbuzz(N, "Fizz") :- 0 is N mod 3, !.
fizzbuzz(N, "Buzz") :- 0 is N mod 5, !.
fizzbuzz(N, X) :- swritef(Y, "%d", [N]), string_to_list(Y, X).
print_fizzbuzz(N) :- fizzbuzz(N, X), writef("%s", [X]), nl.
do_fizzbuzz :- foreach(between(1, 100, N), print_fizzbuzz(N)).
@alucky0707
alucky0707 / defer.hs
Created October 8, 2013 14:47
HaskellでGo言語のdefer文してみる with Freeモナド ref: http://qiita.com/alucky0707/items/156b2b013e16f27cb8d0
{-# LANGUAGE DeriveFunctor, LambdaCase #-}
import Control.Monad
import Control.Monad.Trans
import Control.Monad.Trans.Free
import System.IO
type Defer m = FreeT (DeferF m) m
data DeferF m cont
@alucky0707
alucky0707 / windowed.hs
Created September 29, 2013 11:42
free-gameでフルスクリーン表示 ref: http://qiita.com/alucky0707/items/a7eb3a14fb1de6b775ef
import Data.Function
import Graphics.UI.FreeGame
main = do
font <- loadFont "VL-PGothic-Regular.ttf"
-- GUIParamの_windowedをFalseにするとフルスクリーンになる
-- デフォルトはTrue
-- （ウィンドウモードか、ってことらしい）
-- 途中で変更は（多分）できない。
runGame (def {_windowed = False}) $ fix $ \loop-> do
@alucky0707
alucky0707 / func_flatMap.js
Created September 23, 2013 06:07
JavaScriptにもflatMapを！ ref: http://qiita.com/alucky0707/items/88bd35208b12243768ac
function flatMap(xs, f) {
return xs.reduce(function (ys, x) {
return ys.concat(f(x));
}, []);
}
//=> [4, 12, 20, 28, 36]
console.log(flatMap([1,2,3,4,5,6,7,8,9,10], function (x) {
return x % 2 === 1 ? [x << 2] : [];
}));
@alucky0707
alucky0707 / crossing.go
Created September 21, 2013 10:06
オフラインどう書く14回参考問題をGoで解いてみた ref: http://qiita.com/alucky0707/items/186e2954b3cd67b277b6
package main
import (
"fmt"
"strconv"
)
func test(input, except_ string) {
actual := 0
except, _ := strconv.Atoi(except_)
@alucky0707
alucky0707 / kuin.xml
Last active December 23, 2015 08:09
jEdit用Kuinのシンタックスハイライト
<?xml version="1.0"?>
<!DOCTYPE MODE SYSTEM "xmode.dtd">
<!-- Kuin用シンタックスハイライトファイル -->
<!-- written by alucky0707 -->
<MODE>
<PROPS>
<PROPERTY NAME="commentStart" VALUE="{" />
@alucky0707
alucky0707 / op2fn.js
Created August 18, 2013 11:55
演算子を関数にする関数 ref: http://qiita.com/alucky0707/items/2e38690acdd9f0eb2725
function curry (fn) {
return function curried() {
var
args = Array.prototype.slice.call(arguments, 0);
return args.length >= fn.length ? fn.apply(this, arguments)
: function () {
return curried.apply(this, args.concat(Array.prototype.slice.apply(arguments)));
};
};
}
@alucky0707
alucky0707 / compobj.js
Created August 14, 2013 07:46
JavaScriptでメソッドの補完をする。要harmony-reflect、--harmonyフラグ
(function () {
var
Proxy = require('harmony-reflect').Proxy;
//aとbの編集距離
function levenDist(a, b) {
var
i, j, x,
m = [[0]];