jdoiwork

;; Emacs の PIDとバッファー名を表示するようにする
;; https://www.emacswiki.org/emacs/FrameTitle
(setq-default frame-title-format (list (format "%x @ " (emacs-pid)) "%b"))

jdoiwork

class App
  def plus1(n)
    n + 1
  end
  
  def double(n)
    n * 2
  end
  
  def triple(n)

jdoiwork

INFINITY_STACK = false

class List
  private

  def initialize()
    @null  = false
  end

  class NullList < List

jdoiwork

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Network.Wai
import Network.HTTP.Types
import Network.Wai.Handler.Warp (run)

import qualified Data.ByteString.Lazy       as LBS(fromStrict)
import qualified Data.ByteString            as SBS(ByteString)

jdoiwork

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Blaze.ByteString.Builder (toLazyByteString, Builder)
import Blaze.ByteString.Builder.ByteString (fromByteString)
import Data.String (IsString)
import Control.Monad.IO.Class (liftIO)
import Control.Monad.Writer (execWriterT, execWriter, WriterT, Writer, MonadWriter, tell)

jdoiwork

docker run -d -p 9200:9200 -p 9300:9300 --name jdoi-elasticsearch elasticsearch -Des.network.host=::0

jdoiwork

class Nothing
  constructor: () ->

  bind: (f) ->
    @

class Just
  constructor: (b) ->
    @just = b
  bind: (f) ->

jdoiwork

class Aaa
  def hello
    'a'
  end
end

class Bbb
  def hello
    'b'
  end

jdoiwork

def λ (&block)
  (lambda &block).curry
end
plus = λ {|x, y| x + y }
plus1 = plus[1]
three = plus1[2]
puts three

jdoiwork

{-# LANGUAGE RecordWildCards #-}

module Handler.Hoge where

import Import

-- ...

data Person = Person
    { name :: Text