tiqwab

subprojects {
    apply plugin: 'eclipse'
    apply plugin: 'java'

    // 全ソースがUTF-8であることを指定する、
    // この記述であればsourceSetが増えても対応可能。
    def defaultEncoding = 'UTF-8'
    tasks.withType(JavaCompile) {
        options.encoding = defaultEncoding
    }

tiqwab

subprojects {
    apply plugin: 'eclipse'
    apply plugin: 'java'

    // 全ソースがUTF-8であることを指定する、
    // この記述であればsourceSetが増えても対応可能。
    def defaultEncoding = 'UTF-8'
    tasks.withType(JavaCompile) {
        options.encoding = defaultEncoding
    }

tiqwab

package org.tiqwab.util;

import java.io.File;
import java.util.ArrayList;
import java.util.List;
import java.util.Objects;

import org.apache.commons.io.FilenameUtils;

public class FileUtils {

tiqwab

const dataSet = [
                  [   5,   20 ],
                  [ 480,   90 ],
                  [ 250,   50 ],
                  [ 100,   33 ],
                  [ 330,   95 ],
                  [ 410,   12 ],
                  [ 475,   44 ],
                  [  25,   67 ],
                  [  85,   21 ],

tiqwab

const dataSet = [
  { timepoint: '2016-06-08T12:00:00Z', temperature: 15.2 },
  { timepoint: '2016-06-08T13:00:00Z', temperature: 16.1 },
  { timepoint: '2016-06-08T14:00:00Z', temperature: 19.2 },
  { timepoint: '2016-06-08T15:00:00Z', temperature: 21.5 },
  { timepoint: '2016-06-08T16:00:00Z', temperature: 12.8 },
  { timepoint: '2016-06-08T17:00:00Z', temperature: 15.3 },
  { timepoint: '2016-06-08T18:00:00Z', temperature: 15.0 },
  { timepoint: '2016-06-08T19:00:00Z', temperature: 15.1 },
  { timepoint: '2016-06-08T20:00:00Z', temperature: 14.1 },

tiqwab

import System.Random
import Control.Monad.State hiding (modify')

{-
newtype State s a = State { runState :: s -> (a, s) }

instance Monad (State s) where
  return x  = State $ \s -> (x, s)
  (State h) >>= f = State $ \s -> let (v, newState) = h s
                                      (State g)     = f v

tiqwab

import Control.Monad.Reader

-- do構文でReaderモナド
-- runReader addStuffD 3 = 19 
addStuffD :: Reader Int Int
addStuffD = do
  x <- reader (*2)
  y <- reader (+10)
  return (x+y)

tiqwab

import Control.Monad.Writer

-- do構文でWriter
logCalcD :: Writer [String] Int
logCalcD = do
  tell ["Process start"]
  x <- writer (1, ["Initial value: " ++ " 1"])
  y <- writer (x * 2, ["Multiply by two"])
  tell ["Process end"]
  return y

tiqwab

import Data.List
import Control.Monad.Reader
import Control.Monad.Writer
import Data.Maybe

-- Pair of row and column
type Position = (Int, Int)
-- Pair of Position and possible numbers
type Cell = (Position, [Int])
-- List of Cell

tiqwab

import           Text.Parsec
import           Text.ParserCombinators.Parsec hiding (try)

{-
Basics of `Parsec` package.
-}

{-
data ParsecT s u m a
s: stream type