| def radix(d: Int, n: Int): List[Int] = { | |
| def loop(x: Int): List[Int] = | |
| if (x == 0) Nil else { val a = x / d; val b = x % d; b :: loop(a) } | |
| loop(n).reverse | |
| } | |
| def isPalin(ns: List[Int]): Boolean = ns == ns.reverse | |
| def isMultiPalin(n: Int): Boolean = | |
| (2 to n).toList.map(radix(_, n)).count(xs => xs.length > 2 && isPalin(xs)) >= 2 |
| import java.io.BufferedReader; | |
| import java.io.InputStreamReader; | |
| import java.util.ArrayList; | |
| import java.util.function.Consumer; | |
| public class Main { | |
| public static void main(String[] args) throws Exception { | |
| System.out.println("hello!!!"); | |
| CanvasObj obj = Graphics.builder() | |
| .newGroup() |
| import Control.Applicative (liftA2) | |
| import Data.List (unfoldr) | |
| import Data.Tuple (swap) | |
| solve :: Int -> [Int] | |
| solve = fmap (radix10 3 . uncurry gen) . filter (uncurry check) | |
| . zip [(2,0),(1,0),(0,1),(0,2)] . repeat . radix 3 | |
| check :: (Int, Int) -> [Int] -> Bool | |
| check (x,y) = liftA2 (&&) (not . null) ((== x) . head) . dropWhile (== y) . reverse |
| import Data.Char (chr) | |
| brainfuck :: String -> IO String | |
| brainfuck cmds = loop ([], (return 0), (repeat $ return 0)) 0 [] | |
| where | |
| max = length cmds | |
| loop :: ([IO Int], IO Int, [IO Int]) -> Int -> [IO Char] -> IO String | |
| loop (xs,y,zs) index outs | |
| | index == max = sequence (reverse outs) | |
| | otherwise = cnd (cmds !! index) |
| # 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) |
LINE の Echo Bot を Google Cloud Functions に作る LINE Bot を Cloud Functions で作りたくて、試しに echo bot を書いてみようとしたんですが、意外とまとまってる資料が無かったので残しておきます。
全体のリポジトリはココにあります。
Google Cloud Platform 版の AWS Lambda ですね。 まだ Beta 版で、正直 Lambda の方が機能豊富な気がします(ちゃんと比較はしてないけど)。 特に Lambda と比べて以下の点が今回は引っかかりました。
| 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); |
| 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 |
| -- 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 |
| 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 = |