Skip to content

Instantly share code, notes, and snippets.

@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 / 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 / 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: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

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;
-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
@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
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 / triplet.hs
Last active December 12, 2015 00:28
module Triplet
where
import List
newtype Triplet = Triplet Int
deriving(Show,Read)
instance Eq Triplet where
Triplet i == Triplet j = i == j
instance Ord Triplet where
(Triplet i) `compare` (Triplet j)
@ooharak
ooharak / merge.sh
Created December 19, 2012 08:29
Merge entries to a line-oriented key-value configuration file
#!/bin/sh
##
## by ooharak 2012.
##
## _merge_entries target_file < merge_file
## update entries in target_file with merge_file.
function _merge_entries {
local file=$1
local entry
while read entry ; do