Skip to content

Instantly share code, notes, and snippets.

module Monadwiki
where
{-
A personal study note after
http://en.wikibooks.org/wiki/Programming:Haskell_monads
-}
data Person = Person { name::String, father::Maybe Person, mother::Maybe Person }
deriving (Show,Eq)
@ooharak
ooharak / osxsaygoogle.sh
Created February 14, 2013 13:22
Say `About Google' in all voices installed on your Mac OS X in respective languages.
say -v ?|awk -F ' {2,}' '{gsub(" ", "\\ ", $1);print $1,substr($2,0,2)}'|while read n l ; do echo $n; w3m -dump http://www.google.com/intl/$l/about.html|head -5|tail -1|say -v $n ; done
-startup
plugins/org.eclipse.equinox.launcher_1.3.0.v20120522-1813.jar
--launcher.library
plugins/org.eclipse.equinox.launcher.win32.win32.x86_1.1.200.v20120522-1813
-showsplash
org.eclipse.platform
--launcher.XXMaxPermSize
256m
--launcher.defaultAction
openFile
package example.jbpm;
import org.drools.KnowledgeBase;
import org.drools.builder.KnowledgeBuilder;
import org.drools.builder.KnowledgeBuilderFactory;
import org.drools.builder.ResourceType;
import org.drools.io.ResourceFactory;
import org.drools.runtime.StatefulKnowledgeSession;
import org.drools.runtime.process.ProcessInstance;
@ooharak
ooharak / gist:5096816
Last active December 14, 2015 13:58
欧米にありがちなこと

これのおかげで、BPMNエディタで保存したencoding="UTF-8"なBPMNの日本語部分がWindows-31Jになる(あとで凸る) と思ったらgithubでは1年以上前に直されていた。update siteからダウンロードできる版では直ってないが… と思ったらそもそもこのエディタ自体が古く、これではなくEclipse.orgからダウンロードできるBPMN2エディタかWebベースのやつを使うほうがいいらしい。

206 protected void createModel(InputStream is) {207 try

@ooharak
ooharak / shanaiho.bpmn2.xml
Created March 6, 2013 09:08
BPMN2.0の例(お絵かきしただけであり動かない)
<?xml version="1.0" encoding="UTF-8"?>
<definitions xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.omg.org/spec/BPMN/20100524/MODEL" xmlns:_1="http://www.omg.org/spec/BPMN/20100524/MODEL" xmlns:bpmn2="http://www.omg.org/spec/BPMN/20100524/MODEL" xmlns:bpmndi="http://www.omg.org/spec/BPMN/20100524/DI" xmlns:dc="http://www.omg.org/spec/DD/20100524/DC" xmlns:di="http://www.omg.org/spec/DD/20100524/DI" id="_xFXk8IYtEeKow-hlhZjMWg">
<process id="Process_1" name="社内報掲載プロセス">
<laneSet id="LaneSet_1" name="利用者区分">
<lane id="Lane_2" name="執筆者"/>
<lane id="Lane_3" name="承認者"/>
<lane id="Lane_4" name="読者"/>
<lane id="Lane_1" name="Lane 1">
<flowNodeRef>UserTask_1</flowNodeRef>
<flowNodeRef>UserTask_3</flowNodeRef>
@ooharak
ooharak / gist:5115055
Created March 8, 2013 08:45
BPMN examplesに載っていた例
<?xml version="1.0" encoding="UTF-8"?>
<definitions xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.omg.org/spec/BPMN/20100524/MODEL" xmlns:_1="http://www.omg.org/spec/BPMN/20100524/MODEL" xmlns:bpmn2="http://www.omg.org/spec/BPMN/20100524/MODEL" xmlns:_1_1="http://sample.bpmn2.org/bpmn2/sample/collaboration" xmlns:bpmndi="http://www.omg.org/spec/BPMN/20100524/DI" xmlns:dc="http://www.omg.org/spec/DD/20100524/DC" xmlns:di="http://www.omg.org/spec/DD/20100524/DI" xmlns:ns1="http://example.jbpm" id="Definitions_1" name="MyDefinition" targetNamespace="http://sample.bpmn2.org/bpmn2/sample/collaboration">
<import importType="http://www.java.com/javaTypes" location="example.jbpm.MailSender" namespace="http://example.jbpm"/>
<collaboration id="Collaboration_1" name="Default Collaboration">
<participant id="Participant_1" name="Trouble Ticket System" processRef="Process_1"/>
<participant id="Participant_2" name="Non-initiating Pool"/>
</collaboration>
<process id="Process_1" na
@ooharak
ooharak / LambdaExample.java
Created March 13, 2013 07:47
Java8 Lambda example
import java.util.*;
import java.util.function.Block;
import java.util.function.Function;
/**
* Created with IntelliJ IDEA.
* User: Administrator
* Date: 13/03/13
* Time: 16:04
* To change this template use File | Settings | File Templates.
@ooharak
ooharak / ashttp.sh
Created August 28, 2014 13:27
usage: ./ashttp.sh 'text/html;charset=utf-8' < index.html | nc -l 8080
#!/bin/sh
if [ $# -eq 0 ]; then
mime='text/plain;charset=utf-8'
else
mime="$1"
fi
CR=$'\x0d'
@ooharak
ooharak / gist:e798e7e229f6c52228cb
Created August 28, 2014 13:58
Ghostscript command line to produce a png
gs -dNOPAUSE -dBATCH -q -sDEVICE=pngalpha -dEPSCrop -sOutputFile=- -r72 instance.eps > instance.png