radumaco/RosettaHaskellCompiler
1
0
Fork 0
mirror of https://github.com/macocianradu/RosettaHaskellCompiler.git synced 2026-03-18 21:10:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

Working generation, need to add list functions

Browse Source
This commit is contained in:
Macocian Adrian Radu
2022-05-19 01:53:19 +02:00
parent 26daa85feb
commit e73ff31f1d
18 changed files with 2521 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
resources/Rosetta/test-period.rosetta
View File

@@ -1,21 +1,11 @@
namespace test.period : <"Something">
version "${version.ok}"
type ExchangeRate:
from int (1..1)
to int (1..1)
type Obs:
constant number (0..1)
exchangeRate ExchangeRate (0..1)
condition: one-of
func Konst:
func PayoutParty1:
inputs:
constant number (1..1)
payout PayoutBase (1..1)
contract Contract (1..1)
output:
observable Obs (1..1)
assign-output observable -> constant:
constant
contractOut Contract (1..1)
assign-output contractOut:
if (payout -> payerReceiver -> payer = CounterpartyRoleEnum -> PARTY_1) or (payout -> payerReceiver -> receiver = CounterpartyRoleEnum -> PARTY_2) then MkGive(contract) else contract