Idris2/tests/idris2/literate006/expected

1/1: Building Door (Door.lidr)
Main> >               (val # y) => ?now_0
Main> >               (False # d) => ?now_4
>               (True # d) => ?now_5
Main>  0 m : Type -> Type
 1 d : Door Open
   x : Integer
 0 r : Res Bool (\r => Door (if r then Open else Closed))
------------------------------
now_2 : Use Many m ()
Main>  0 m : Type -> Type
 1 d : Door Closed
   x : Integer
 0 r : Res Bool (\r => Door (if r then Open else Closed))
------------------------------
now_3 : Use Many m ()
Main> Bye for now!
Add test script They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here! 2020-05-19 20:25:18 +03:00			`1/1: Building Door (Door.lidr)`
[ re #1852 ] Partial fix without the Hole UN refactoring 2021-11-24 00:19:20 +03:00			`Main> > (val # y) => ?now_0`
Swap 'False' and 'True' constructors It has always bothered me that 'False' got mapped to tag 1 and 'True' got mapped to tag 0. This doesn't change much in practice (except that perhaps a code generator might notice some useful things in intToBool) but I'm changing it now anyway. Also added a couple of inlinings of boolean operations. 2021-05-09 22:03:56 +03:00			`Main> > (False # d) => ?now_4`
			`> (True # d) => ?now_5`
Add test script They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here! 2020-05-19 20:25:18 +03:00			`Main> 0 m : Type -> Type`
			`1 d : Door Open`
			`x : Integer`
Look at intermediate results in program search This has involved quite a bit of reorganisation and some improvements in resugaring so that the results look nice. In summary: * Expression search now gives back a RawImp rather than a checked term, which allows it to include case expressions * Case with one pattern is resugared to a destructuring let * Some name generation issues address in function generation We look at intermediate results for local variables which are functions that return a concrete type, or recursive calls that return a single constructor type. In these cases, we: * let bind the local variable/recursive call * generate a new definition for the scope, as a 'case' function When we recursively generate the definition, it's a bit more restricted so as not to explode the search space. We only take the first result, we only look one constructor deep, and we go right to left on variable splitting so only deconstruct the name we've just added. 2020-08-04 14:51:57 +03:00			`0 r : Res Bool (\r => Door (if r then Open else Closed))`
Prettyprinting hole context 2020-08-18 15:36:34 +03:00			`------------------------------`
Add test script They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here! 2020-05-19 20:25:18 +03:00			`now_2 : Use Many m ()`
			`Main> 0 m : Type -> Type`
			`1 d : Door Closed`
			`x : Integer`
Look at intermediate results in program search This has involved quite a bit of reorganisation and some improvements in resugaring so that the results look nice. In summary: * Expression search now gives back a RawImp rather than a checked term, which allows it to include case expressions * Case with one pattern is resugared to a destructuring let * Some name generation issues address in function generation We look at intermediate results for local variables which are functions that return a concrete type, or recursive calls that return a single constructor type. In these cases, we: * let bind the local variable/recursive call * generate a new definition for the scope, as a 'case' function When we recursively generate the definition, it's a bit more restricted so as not to explode the search space. We only take the first result, we only look one constructor deep, and we go right to left on variable splitting so only deconstruct the name we've just added. 2020-08-04 14:51:57 +03:00			`0 r : Res Bool (\r => Door (if r then Open else Closed))`
Prettyprinting hole context 2020-08-18 15:36:34 +03:00			`------------------------------`
Add test script They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here! 2020-05-19 20:25:18 +03:00			`now_3 : Use Many m ()`
			`Main> Bye for now!`