syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Two equations are better than one blob

This commit is contained in:
Tony Garnock-Jones 2017-10-17 21:21:27 +01:00
parent fc0e900485
commit 18b3ab0d97
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/syndicate/examples/actor/f-to-c.rkt
View File

@ -40,9 +40,8 @@
(struct set-temperature (unit value) #:prefab) (struct set-temperature (unit value) #:prefab)
(spawn (versioned-field [C 0] [F 32]) (spawn (versioned-field [C 0] [F 32])
(begin/dataflow (begin/dataflow (F (+ (* (C) 9/5) 32) C))
(F (+ (* (C) 9/5) 32) C) (begin/dataflow (C (* (- (F) 32) 5/9) F))
(C (* (- (F) 32) 5/9) F))
(assert (temperature 'C (C))) (assert (temperature 'C (C)))
(assert (temperature 'F (F))) (assert (temperature 'F (F)))
(on (message (set-temperature 'C $v)) (C v)) (on (message (set-temperature 'C $v)) (C v))