Mercurial > repo

view interps/rhotor/Misc.hs @ 7945:34fac2ce839a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<moon__> mkx bin/hfs//erro \'You have discovered an eerie cavern. The air aboe the dar kstone floor is alive ith vortices of purple light and dark, boiling clouds. Seemingly bottemless pits mark the surface. "$1" stand below\'
author HackBot
date Sat, 07 May 2016 18:36:03 +0000
parents 859f9b4339e6
children
line wrap: on
line source

module Misc (
	stringToNodeTree,
	nodeTreeToString,
	numberToNodeTree,
	nodeTreeToNumber,
	apply
)
where

import Node


stringToNodeTree		:: String -> Node
stringToNodeTree ""		= Nil
stringToNodeTree (c:t)	= Cons (numberToNodeTree (fromEnum c)) (stringToNodeTree t)

nodeTreeToString			:: Node -> String
nodeTreeToString Nil		= ""
nodeTreeToString (Cons a b)	= (toEnum (nodeTreeToNumber a):nodeTreeToString b)

numberToNodeTree 		:: (Integral a) => a -> Node
numberToNodeTree 0		= Nil
numberToNodeTree (n+1) 	= Cons Nil (numberToNodeTree n)

nodeTreeToNumber				:: (Integral a) => Node -> a
nodeTreeToNumber Nil			= 0
nodeTreeToNumber (Cons Nil a)	= (nodeTreeToNumber a) + 1


apply		:: Node -> Node -> Node
apply a b	= (Application a b)