<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>Hi there! I was hoping you could help me a bit here with making a function. I am asked to write functions to make a mini robot game, which uses these data and types: <br><br>data Program = Move Direction Program<br> |Radar (Robot -> Point) Program<br> |Shoot Point Program<br> |Surrender<br>data Direction = N|S|E|O<br>type Point = (Int,Int)<br>data Robot = R1|R2<br><br>And then I have to write functions like this: <br>prog1::Program<br>prog1 = Move E $ Radar R1 (2,4) $ Radar R2 (5,6) $ Shoot (5,7) prog1<br><br>My problem is the function adjust::Direction->Program->Program that takes one direction and a program and moves every shot in that program one unit in the given direction. I can't figure out how to do this, I would really appreciate you could help me, thanks!<br> </div></body>
</html>