diff --git a/week2/week2.hoon b/week2/week2.hoon index 6c45d0c..58df237 100644 --- a/week2/week2.hoon +++ b/week2/week2.hoon @@ -1,14 +1,13 @@ :: Hoon School - Week 2 :: ~bannum-magtus || s@p7.co.nz :: -|= a=* :: -^- tape :: explicitly return a tape -%- weld :: weld some strings to reduce repitition -:- "input is " :: -?: .?(a) :: first branch, test whether a is a cell - "a cell" :: -%- weld :- :: if not, take the atom branch -?: =((mod (@ a) 2) 0) :: this cast is safe as we know a is an atom - "an even" :: - "an odd" :: -" atom" :: +|= a=* :: take in any noun +^- tape :: explicitly return a tape +%+ weld :: weld some strings to reduce repitition + "input is " :: +?^ a :: first branch, test whether a is a cell + "a cell" :: +=- (weld - " atom") :: attach a block to the head of the subject +?: =((mod a 2) 0) :: mod is safe because we know a isnt a cell + "an even" :: +"an odd" ::