Skip to content

Instantly share code, notes, and snippets.

Avatar

Akasuki Nakamura netsamir

  • Element83, Ltd
  • Malta
View GitHub Profile
View AdventOfCode.hs
import qualified Data.List as L
import System.IO
------------ ------------ ------------
-- Day 1
------------ ------------ ------------
input1_test = [199, 200, 208, 210, 200, 207, 240, 269, 260, 263]
measurements :: [Integer] -> Integer
View blockly.xml
When
[Case
(Deposit
(Role "Seller")
(Role "Buyer")
(Token "" "")
(ConstantParam "Price")
)
Close ]
(SlotParam "Buyer's deposit timeout")
@netsamir
netsamir / blockly.xml
Last active Sep 30, 2021
SimpleEscrow
View blockly.xml
Pay
(Role "Son")
(Party (Role "Dady"))
(Token "" "")
(Constant 15)
Close
@netsamir
netsamir / Playground.hs
Last active Sep 29, 2021
Plutus Playground Smart Contract
View Playground.hs
import Playground.Contract
import qualified Language.PlutusTx as PlutusTx
import qualified Language.PlutusTx.Prelude as P
import Ledger
import Ledger.Validation
import wallet
import Plutus.Contract