mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

	Commit message (Expand)	Author	Age	Files	Lines
*	.	Kartik Agaram	2021-04-21	1	-7/+7
*	.	Kartik Agaram	2021-03-23	1	-0/+1870

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - counters.mu</title> <meta name="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v2"> <meta name="syntax" content="none"> <meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <pre id='vimCodeElement'> <a name="L1"></a> 1 # example program: maintain multiple counters with isolated lexical scopes <a name="L2"></a> 2 # (spaces) <a name="L3"></a> 3 <a name="L4"></a> 4 def new-counter n:num -> default-space:space [ <a name="L5"></a> 5 default-space <- new location:type, 30 <a name="L6"></a> 6 load-ingredients <a name="L7"></a> 7 ] <a name="L8"></a> 8 <a name="L9"></a> 9 def increment-counter outer:space/names:new-counter, x:num -> n:num/space:1 [ <a name="L10"></a>10 local-scope <a name="L11"></a>11 load-ingredients <a name="L12"></a>12 0:space/names:new-counter <- copy outer # setup outer space; it *must* come from 'new-counter' <a name="L13"></a>13 n/space:1 <- add n/space:1, x <a name="L14"></a>14 ] <a name="L15"></a>15 <a name="L16"></a>16 def main [ <a name="L17"></a>17 local-scope <a name="L18"></a>18 # counter A <a name="L19"></a>19 a:space <- new-counter 34 <a name="L20"></a>20 # counter B <a name="L21"></a>21 b:space <- new-counter 23 <a name="L22"></a>22 # increment both by 2 but in different ways <a name="L23"></a>23 increment-counter a, 1 <a name="L24"></a>24 b-value:num <- increment-counter b, 2 <a name="L25"></a>25 a-value:num <- increment-counter a, 1 <a name="L26"></a>26 # check results <a name="L27"></a>27 $print [Contents of counters], 10/newline <a name="L28"></a>28 $print [a: ], a-value, [ b: ], b-value, 10/newline <a name="L29"></a>29 ] </pre> </body> </html>