Tatsuya Hirose lotz84

機械学習について、Webサービスの開発で必要とされる知識を中心に解説した資料。はてなサマーインターンの講義資料として作成されたもの。

環境設定

Ethereum ブロックチェーンに接続するためのミドルウェア

$ # geth のインストール
$ brew install ethereum

	{-# LANGUAGE DataKinds #-}
	{-# LANGUAGE ViewPatterns #-}

	module Main where

	import Data.Maybe
	import Graphics.Gloss
	import Numeric.Hamilton
	import Numeric.LinearAlgebra.Static hiding ((<>))
	import qualified Data.Vector.Sized as V

	{-# LANGUAGE DataKinds #-}
	{-# LANGUAGE ViewPatterns #-}

	module Main where

	import Data.Maybe
	import Graphics.Gloss
	import Numeric.Hamilton
	import Numeric.LinearAlgebra.Static hiding ((<>))
	import qualified Data.Vector.Sized as V

	{-# LANGUAGE DataKinds #-}
	{-# LANGUAGE FlexibleContexts #-}
	{-# LANGUAGE PartialTypeSignatures #-}
	{-# LANGUAGE RankNTypes #-}
	{-# LANGUAGE TypeApplications #-}


	import Data.NumInstances.Tuple
	import GHC.TypeLits
	import Numeric.Backprop

	<!DOCTYPE html>
	<html>
	<head>
	<title>Lots Token</title>
	<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/4.0.0-beta.2/css/bootstrap.min.css" integrity="sha384-PsH8R72JQ3SOdhVi3uxftmaW6Vc51MKb0q5P2rRUpPvrszuE4W1povHYgTpBfshb" crossorigin="anonymous">
	</head>

	<body>

	<div class="container">

	{-# LANGUAGE OverloadedStrings #-}
	import Prelude hiding (read)

	import Data.ByteString (ByteString)
	import qualified Data.ByteString.Char8 as BS
	import Data.IORef

	type Key = ByteString
	type Value = ByteString

	{-# LANGUAGE DataKinds #-}
	{-# LANGUAGE TypeOperators #-}
	{-# LANGUAGE FlexibleInstances #-}
	{-# LANGUAGE KindSignatures #-}
	{-# LANGUAGE TypeApplications #-}
	{-# LANGUAGE ScopedTypeVariables #-}

	module Bookkeeper.FromJSON where

	import Bookkeeper.Internal (Book'(..))

	import Data.List
	import Control.Monad.State

	type Weight = Int
	type Vertex = Char

	newtype WEdge = WEdge (Vertex, Vertex, Weight)

	head' :: WEdge -> Vertex
	head' (WEdge (x, _, _)) = x

	<!DOCTYPE html>
	<html>
	<head>
	<title>test</title>
	<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/sweetalert/1.1.3/sweetalert.min.css" />
	<script src="https://cdnjs.cloudflare.com/ajax/libs/sweetalert/1.1.3/sweetalert.min.js"></script>
	</head>
	<body>
	<h1> Test </h1>
	<script>