tA/Hoon101
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

better week2

Browse Source
This commit is contained in:
Thorn Avery 2019-07-16 11:52:03 +12:00
parent 43c7d1e262
commit 453fd47781
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
week2/week2.hoon
View File

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