apstndb

oddEven :: [Int] -> ([Int],[Int])
oddEven [] = ([], [])
oddEven (x:xs) | odd x = (x:odds, evens)
               | otherwise = (odds, x:evens)
               where (odds, evens) = oddEven xs

apstndb

import System.IO
import Data.List
import System.Random

main = do
        gen <- getStdGen
        let answer = take 4 (randomRs ('1', '4') gen)
        putStrLn "Hello, guess the number!"
        guessNumber answer

apstndb

import Control.Applicative
import Data.List
import System.Random

-- XとYと爆弾の数(TODO: 決め打ちしない)
maxX :: Int
maxX = 9
maxY :: Int
maxY = 9
numBoms :: Int

apstndb

import Control.Applicative
import Data.List
import System.Random

-- XとYの数(TODO: 決め打ちしない)
maxX :: Int
maxX = 9
maxY :: Int
maxY = 9

apstndb

import Control.Applicative
import Data.List
import System.Random

-- XとYの数(TODO: 決め打ちしない)
maxX :: Int
maxX = 9
maxY :: Int
maxY = 9

apstndb

import Control.Monad.State

type Point = (Int, Int)

move :: Char -> State Point ()
move 'u' = do (x,y) <- get; put (x, y-1) -- 上へ移動
move 'd' = do (x,y) <- get; put (x, y+1) -- 下へ移動
move 'l' = do (x,y) <- get; put (x-1, y) -- 左へ移動
move 'r' = do (x,y) <- get; put (x+1, y) -- 右へ移動

apstndb

import Data.List
import System.Environment
import Data.Maybe
import Control.Monad.Reader

type Env = [(String, String)]

environment :: Env
environment = 
  [ ("HOME", "/home/haskell")

apstndb

deploy function

${PROJECT_NAME} should be your own project name.

$ gcloud functions deploy helloExec --trigger-http --project=${PROJECT_NAME}

execute function

apstndb

It can be checked by the same method of Google Cloud Functions

deploy App Engine Java 8

$ mvn appengine:deploy

get result

apstndb

https://twitter.com/sonatard/status/1002767157262872577

グローバル領域のポインタ比較は定数化されている。

$ go build -gcflags '-N -l' -o executable .
$ go tool objdump -s isEqual executable
TEXT main.isEqual(SB) /Users/apstndb/work/gosandbox/main.go
  main.go:7             0x10935b0               c644240800              MOVB $0x0, 0x8(SP)
 main.go:8 0x10935b5 c644240800 MOVB $0x0, 0x8(SP)