aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Extend-your-language/ATS/extend-your-language.ats Normal file
View file

@ -0,0 +1,18 @@
(* Languages with pattern matching ALREADY HAVE THIS! *)
fn
func (pred1 : bool, pred2 : bool) : void =
case+ (pred1, pred2) of
| (true, true) => println! ("(true, true)")
| (true, false) => println! ("(true, false)")
| (false, true) => println! ("(false, true)")
| (false, false) => println! ("(false, false)")
implement
main0 () =
begin
func (true, true);
func (true, false);
func (false, true);
func (false, false)
end