matsubara0507

import Data.List (mapAccumL)

showTupleWith :: (Show a, Show b) => String -> (a, b) -> String
showTupleWith sep (a, b) = show a ++ sep ++ show b

dxList :: (Enum a, Floating a) => a -> a -> [a]
dxList dx xmax = [0.0, dx..xmax]

odeEuler :: (Enum a, Floating a) => (a -> a) -> a -> a -> a -> [(a, a)]
odeEuler f yinit dx xmax = snd $ mapAccumL calc yinit $ zip xs (tail xs)

matsubara0507

fizzbuzz = flip maybe id <$> show <*> foldl1 mappend . map fst . filter snd . flip map [(Just "Fizz", 3), (Just "Buzz", 5), (Nothing, 1)] . fmap . (fmap (== 0) . mod)

matsubara0507

-- stack script --resolver ./snapshot.yaml -- example.hs

{-# LANGUAGE DataKinds         #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE OverloadedLabels  #-}
{-# LANGUAGE PolyKinds         #-}
{-# LANGUAGE TypeOperators     #-}

module Main where

matsubara0507

-- stack script --resolver lts-10.6 -- .\.temp\brittany-all.hs src --write-mode inplace

{-# LANGUAGE OverloadedStrings #-}

module Main where

import           Data.Text          (Text, pack)
import qualified Filesystem.Path    as P
import           Shelly
import           System.Environment (getArgs)

matsubara0507

import           Data.Bool (bool)
import           Data.List (scanl1, scanr1)

main :: IO ()
main = print $ all ((==) <$> snd <*> (show . solve . fst)) testSet

solve = sum . fmap (sum . (zipWith (-) =<< (zipWith min . scanl1 max <*> scanr1 max)) . fmap (read . (: []))) . words . fmap (bool ' ' <*> (/=) '0')

testSet :: [(String, String)]
testSet =

matsubara0507

--  stack --resolver lts-10.3 runghc --package text --package shelly  --package fsnotify

{-# LANGUAGE OverloadedStrings #-}

module Main where

import           Prelude            hiding (FilePath)

import           Data.Text          (pack, unpack)
import qualified Data.Text.IO       as T

matsubara0507

module Main exposing (..)

import Html exposing (Html, a, div, span, text, textarea)
import Html.Attributes exposing (class, readonly, type_, value, wrap)
import Html.Events exposing (onClick)
import List.Extra as List


type alias Key =
    { view : String

matsubara0507

function doPost(e) {
  var prop = PropertiesService.getScriptProperties().getProperties();
  
  if (prop.VERIFY_TOKEN != e.parameter.token) {
    throw new Error('invalid token.');
  }

  /* Load Spread Sheet */
  var ss = SpreadsheetApp.openById(prop.SPREAD_SHEET_ID)
  var membersSheet = ss.getSheetByName(prop.MEMBERS_SHEET_NAME); 

matsubara0507

LINE の Echo Bot を Google Cloud Functions に作る LINE Bot を Cloud Functions で作りたくて、試しに echo bot を書いてみようとしたんですが、意外とまとまってる資料が無かったので残しておきます。

全体のリポジトリはココにあります。

Cloud Functions

Google Cloud Platform 版の AWS Lambda ですね。 まだ Beta 版で、正直 Lambda の方が機能豊富な気がします(ちゃんと比較はしてないけど)。 特に Lambda と比べて以下の点が今回は引っかかりました。

matsubara0507

# coding: utf-8
import math

def is_int(n):
    return n % 1 == 0
    
def int_sqrt(n):
    a = math.sqrt(n)
    if is_int(a):
        return int(a)