Skip to content

Instantly share code, notes, and snippets.

View VoQn's full-sized avatar
:shipit:
I may be slow to respond.

Kazuhiro Mizushima VoQn

:shipit:
I may be slow to respond.
View GitHub Profile
@VoQn
VoQn / 型って雄弁だね.hs
Last active September 23, 2023 14:16
まぁHaskellさんの真骨頂はモナド(あくまでも市井で言われてるようなレベルの話)より型と型クラスじゃないかなーと最近は思いますね
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
newtype FizzBuzz = FizzBuzz Int deriving (Enum, Eq, Ord, Num, Real, Integral)
instance Show FizzBuzz where
show x = (fizz ++ buzz) `or` show asInt where
fizz | ifMultipleOf 3 = "fizz" | otherwise = []
buzz | ifMultipleOf 5 = "buzz" | otherwise = []
ifMultipleOf n = x `mod` n == 0
or [] ys = ys
@VoQn
VoQn / mastodon_force_2_column_mode.css
Created May 29, 2017 12:03
mastodon の viewport-width が 1025px 以上だった時に無理やり2カラムに修正するやつ
@media screen and (min-width: 1025px) {
.tabs-bar {
display: flex;
}
.drawer__header,
.tabs-bar__link[href="/web/statuses/new"],
.columns-area>[role="region"] {
display: none;
}
.drawer {
@VoQn
VoQn / Billboard.cs
Created April 30, 2013 10:35
Unity3D でよくやる平面ビルボード 使い方は readme.md にて
using UnityEngine;
public class BillBoard : MonoBehaviour {
public Transform targetToFace;
public bool isAutoFace = true;
Quaternion adjustEuler = Quaternion.Euler (90, 180, 0);
// Use this for initialization
void Start ()
@VoQn
VoQn / ColorSpaceModel.js
Created May 13, 2010 13:36
Color model definission and Convert function each color models for HTML Canvas Element
// -*- mode: js2; coding: utf-8; -*-
/**
* colorspace.js
* Color Space Utility Functions for HTML Canvas Element
*
* Author: VoQn
*/
/** Utility Functions */
@VoQn
VoQn / parser_example.hs
Created January 13, 2012 04:41
Applicative Style Parsec
import Control.Applicative hiding ( (<|>) )
import Text.Parsec
-- parse like ruby's String.strip
escSpace parser = spaces *> parser <* spaces
-- parse like "between" in Text.Parsec
close opener parser closer = char opener *> escSpace parser <* char closer
-- Example
@VoQn
VoQn / gist:563601
Created September 3, 2010 08:18 — forked from fuba/gist:563583
## お好み焼き
+ 小麦粉をだし汁で溶く
+ 刻んだキャベツを入れる
+ 卵を入れる
+ 混ぜる
+ フライパンで焼く
+ ソースかける
+ かつおぶしをふりかける
+ 青海苔をちらす
+ 好みで紅生姜をのせる
@VoQn
VoQn / DetonatorTest.cs
Created March 3, 2013 11:08
Detonator Explosion Framework が最新の Unity だとインポート時に DetonatorTest.js がコンパイルエラーを出しやがるので、差し替え用の C# 書いた。使い方は detonatorPrefabs にインスペクタで Detonator が用意しているアセットを全部突っ込めばよい
using UnityEngine;
using System.Collections;
public class DetonatorTest : MonoBehaviour {
public GameObject currentDetonator;
private int _currentExpIdx = -1;
private bool buttonClicked = false;
public GameObject[] detonatorPrefabs;
public float explosionLife = 10;
@VoQn
VoQn / quicksort.hs
Last active December 17, 2015 14:38
qsort xs = qsort' xs []
qsort' xs rs = case xs of
[] -> rs
[x] -> x:rs
(x:xs') ->
let m = median xs in qsort'' xs m rs [] [] []
qsort'' xs m rs ls es gs = case xs of
[] -> qsort' ls $ es ++ qsort' gs rs
@VoQn
VoQn / gist:4212765
Created December 5, 2012 05:56
My SublimeText setting
{
//-- GUI Look & Feel --
"highlight_line": true,
"rulers": [ 80, 120 ],
// Source Code Pro - https://github.com/adobe/source-code-pro
"font_face": "Source Code Pro ExtraLight",
// for MacOS X
"font_options": [ "subpixel_antialias", "no_round" ],
i=0;while(100>i++){console.log(((i%3?'':'Fizz')+(i%5?'':'Buzz'))||i);}