
bitbegin.com
潮汐猎人Code: [a b] add: function [a b] [ b: 12 do bind code 'a ] print add 34. Red [] foreach-leaf: func [word [word! Depth-first tree of blocks traversal iterator" bind body 'spec while [not tail? Spec/1 [ foreach-leaf word spec/1 body ][ set word spec/1 do body ] spec: next spec ] ] total: 0 foreach-leaf 'i [1 2 [3 [4 5] 6] 7 [8] [total: total i]? Ctx: context [a: 1 b: 2] do bind [a b] ctx. Red 05.1 Released. Red 05.1 - 新的命令行终端和错误支持. Red 05.1 - 新的命令行终端和错误支持. A: 0 if error? Smart Card in Red: RedSCard. Red/Sys...
http://www.bitbegin.com/