My work for Hoon 101.
Will remain private until the class is over.
Du kan inte välja fler än 25 ämnen
Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
|
- :: Hoon 201 - Week 2
- :: ~bannum-magtus || s@p7.co.nz
- ::
- :: i could not figure out how to
- :: cast the output of a wet gate
- :: to a list of the same type :(
- ::
- :- %say
- |= [* [t=(tree @) x=@ ~] *]
- :- %noun
- ^- [? (list @)]
- =<
- :- (dfs-search t x) (dfs t)
- |%
- ++ dfs
- |= t=(tree @)
- ^- (list @)
- ?~ t
- ~
- %+ weld
- (dfs l.t)
- %+ weld
- (dfs r.t)
- [n.t ~]
- ++ dfs-search
- |= [t=(tree @) x=@]
- ^- ?
- ?~ t
- %.n
- ?| (dfs-search l.t x)
- (dfs-search r.t x)
- =(n.t x)
- ==
- :: i assume ?| will stop as
- :: soon as it sees a true,
- :: otherwise below is better
- ::
- ::?: (dfs-search l.t x) %.y
- ::?: (dfs-search r.t x) %.y
- ::=(x n.t)
- --
|