mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
0031542faf
This is for consistency with the `cmark` style. Now the blocks we still pretty-print ourselves will match the bulk of them that `cmark` produces.
2.1 KiB
2.1 KiB
structural ability DC r where
shift : ((a -> r) -> r) -> a
structural type Delayed r = Done r | Delay (Nat -> Delayed r)
hreset : Request {DC r} r -> r
hreset = cases
{ shift e -> k } ->
e (x -> handle k x with hreset)
{ x } -> x
reset : '{DC r} r -> r
reset body = handle !body with hreset
suspSum l =
walk acc = cases
[] -> acc
x +: xs
| x == 0 -> walk (shift (k -> Delay (x -> k (acc + x)))) xs
| otherwise -> walk (acc + x) xs
reset '(Done (walk 0 l))
l1 = [1, 2, 0, 3, 4, 0, 5, 6, 0, 7, 8]
l2 = [2, 0, 3, 0, 1, 0, 5, 0, 4, 0, 6]
l3 = [1, 2, 3, 4, 5, 6, 7, 8, 9]
feed m = cases
Done r -> r
Delay f -> feed m (f m)
finish : (Delayed Nat, Delayed Nat, Delayed Nat) -> Text
finish = cases (x, y, z) ->
px = feed 2 x
py = feed 2 y
pz = feed 2 z
"(" ++ toText px ++ ", " ++ toText py ++ ", \"" ++ toText pz ++ "\")"
mkTestCase = do
trip = (suspSum l1, suspSum l2, suspSum l3)
saveTestCase "case-03" "v4" finish trip
Loading changes detected in scratch.u.
I found and typechecked these definitions in scratch.u. If you
do an `add` or `update`, here's how your codebase would
change:
⍟ These new definitions are ok to `add`:
structural ability DC r
structural type Delayed r
feed : Nat -> Delayed r -> r
finish : (Delayed Nat, Delayed Nat, Delayed Nat)
-> Text
hreset : Request {DC r} r -> r
l1 : [Nat]
l2 : [Nat]
l3 : [Nat]
mkTestCase : '{IO, Exception} ()
reset : '{DC r} r -> r
suspSum : [Nat] -> Delayed Nat
scratch/main> add
⍟ I've added these definitions:
structural ability DC r
structural type Delayed r
feed : Nat -> Delayed r -> r
finish : (Delayed Nat, Delayed Nat, Delayed Nat) -> Text
hreset : Request {DC r} r -> r
l1 : [Nat]
l2 : [Nat]
l3 : [Nat]
mkTestCase : '{IO, Exception} ()
reset : '{DC r} r -> r
suspSum : [Nat] -> Delayed Nat
scratch/main> run mkTestCase
()