Update README and REPL formatting for list outputs
This commit is contained in:
		
							
								
								
									
										25
									
								
								README.md
									
									
									
									
									
								
							
							
						
						
									
										25
									
								
								README.md
									
									
									
									
									
								
							| @ -16,25 +16,26 @@ This is an active experimentation project by [someone who has no idea what they' | ||||
| ## What does it look like? | ||||
|  | ||||
| ``` | ||||
| false = t | ||||
| true = t t | ||||
| id = (\\a : a) | ||||
| triage = (\\a b c : t (t a b) c)  | ||||
| match_bool = (\\ot of : triage of (\\z : ot) t) | ||||
| and = match_bool id (\\z : false) | ||||
| if = (\\cond then else : t (t else (t t then)) t cond) | ||||
| triage = (\\a b c : t (t a b) c) | ||||
| test = triage \"leaf\" (\\z : \"stem\") (\\a b : \"fork\") | ||||
| false      = t | ||||
| _          = t | ||||
| true       = t t | ||||
| id         = (\a : a) | ||||
| triage     = (\a b c : t (t a b) c)  | ||||
| match_bool = (\ot of : triage of (\_ : ot) t) | ||||
| and        = match_bool id (\_ : false) | ||||
| if         = (\cond then else : t (t else (t t then)) t cond) | ||||
| triage     = (\a b c : t (t a b) c) | ||||
| test       = triage "leaf" (\_ : "stem") (\_ _ : "fork") | ||||
|  | ||||
| -- The REPL outputs the tree form results by default; they are elided here. | ||||
| sapling < test t | ||||
| sapling > Fork (...) | ||||
| DECODE -: "leaf" | ||||
| sapling < test (t t) | ||||
| sapling > Fork (...) | ||||
| DECODE -: "stem" | ||||
| sapling < test (t t t) | ||||
| sapling > Fork (...) | ||||
| DECODE -: "fork" | ||||
| sapling < map (\i : listConcat i " is super cool!") [("He") ("She") ("Everybody")] | ||||
| DECODE -: ["He is super cool!", "She is super cool!", "Everybody is super cool!"] | ||||
| ``` | ||||
|  | ||||
| ## How to use | ||||
|  | ||||
| @ -6,6 +6,7 @@ import Parser | ||||
| import Research | ||||
|  | ||||
| import Control.Monad         		 (void) | ||||
| import Data.List                 (intercalate) | ||||
| import qualified Data.Map as Map | ||||
| import System.Console.Haskeline | ||||
| import System.IO            		 (hFlush, stdout) | ||||
| @ -38,5 +39,5 @@ decodeResult tc = case ofNumber tc of | ||||
|   Left _ -> case ofString tc of | ||||
|     Right str -> "\"" ++ str ++ "\"" | ||||
|     Left _ -> case ofList tc of | ||||
|       Right list -> "[" ++ unlines (map decodeResult list) ++ "]" | ||||
|       Right list -> "[" ++ intercalate ", " (map decodeResult list) ++ "]" | ||||
|       Left _ -> "" | ||||
|  | ||||
		Reference in New Issue
	
	Block a user
	 James Eversole
						James Eversole