rebol tips 笔记

areacodes: [
   "Ukiah"         707
   "San Francisco" 415
   "Sacramento"    916
]
forskip areacodes 2 [
    print [first areacodes "area code is" second areacodes]
]

my-series: [1 2 3 4]
forall my-series [ 
    my-series/1: my-series/1 * my-series/1
]
; myseries = [1 4 9 16]

shopping-basket: make object! [
  fruits: 5
  vegetables: 3
  dairy-products: 7
]

shopping-basket: make object! [fruits: 5 vegetables: 3 total: self/fruits + self/vegetables]

 data: load {"Bob" 21 bob@example.com $100}
 set [name age email payment] data

;赋值
x: "ab"
set 'x "cd"

;取值
:x
get 'x

account: make object! [
    first-name: last-name: address: phone: email-address: none
]

user1: make account [
    first-name: "John"
    last-name: "Smith"
    address: "1234 Street Place  Cityville, USA 12345"
    email-address: "john@hisdomain.com"
    print-full: func [] [
        print first-name
        print last-name
    ]
]

;注意，func [] 可缩写为 does

user1/address
get in  user1 'address

set in  user1 'address "test addr"

user1/print-full

;从block里抽
colors: [red green blue yellow blue orange gold]
probe find/part colors 'blue

;限定在text的top 15个字符
text: "Keep things as simple as you can."
print find/part text "as" 15
as simple as you can.
[blue yellow blue orange gold]

;限定在start的top n个字符找，n是end的position
text: {
    This is line one.
    This is line two.
}

start: find text "this"
end: find start newline
item: find/part start "line" end
print item
line one.

;循环
blk: load %script.r
while [blk: find blk string!] [
    print first blk
    blk: next blk
]

;在keep之后
str: "Keep things simple."
probe find/match str "keep"
" things simple."

;任意字符
str: "abcdefg"
print find/any str "c*f"
cdefg

;任意单个字符
print find/any str "??d"
bcdefg

email-book: [
    "George" harrison@guru.org
    "Paul" lefty@bass.edu
    "Ringo" richard@starkey.dom
    "Robert" service@yukon.dom
]

print select email-book "Paul"
lefty@bass.edu

names: [
    "Evie" "Jordan" 43 eve@jordan.dom
    "Matt" "Harrison" 87 matt@harrison.dom
    "Luke" "Skywader" 32 luke@skywader.dom
    "Beth" "Landwalker" 104 beth@landwalker.dom
    "Adam" "Beachcomber" 29 adam@bc.dom
]
sort/skip names 4
foreach [first-name last-name age email] names [
    print [first-name last-name age email]
]

ascend: func [a b] [a < b]
data: [100 101 -20 37 42 -4]
probe sort/compare data :ascend
[-20 -4 37 42 100 101]

probe exclude [1 2 3 4] [1 2 3 5]
[4]

probe difference [1 2 3 4] [1 2 3 5]
[4 5]

str: "abcdef"
blk: [1 2 3 4 5 6]

;把头3个元素换成[1 2 3 4]
change/part str [1 2 3 4] 3
probe str
1234def

;在尾部插入4个字符
insert/part tail str "-ghijkl" 4
probe str
1234def-ghi

;删掉从"d"(包含)到"-"(不包含)的内容
remove/part (find str "d") (find str "-")
probe str
1234-ghi

;从2开始插入一个block替换原有item，展开替换
>> blk: [1 2 3 4 5 6]
== [1 2 3 4 5 6]

>> change (find blk 2) [a b c]
== [5 6]

>> blk
== [1 a b c 5 6]

;把2替换成一个block，insert/only类似
>> blk: [1 2 3 4 5 6]
== [1 2 3 4 5 6]

>> change/only (find blk 2) [a b c]
== [3 4 5 6]

>> blk
== [1 [a b c] 3 4 5 6]

;重复替换4次
str: "abcdefghi"
change/dup str "*" 4
probe str
****efghi

;一维数组
arr: array 5
probe arr
[none none none none none]

;二维数组
arr: array [2 3]
probe arr
[[none none none] [none none none]]

;初始化
arr: array/initial 5 0
probe arr
[0 0 0 0 0]

probe compose ["The time is" (now/time)]
["The time is" 10:32:45]

probe compose [a b ([c d])]
[a b c d]

probe compose [a b [c (d e)]]
[a b [c (d e)]]

probe compose/deep [a b [c (d e)]]
[a b [c d e]]

probe reform ["the time is:" now/time]
"the time is: 0:59:58"

probe form ["the time is:" now/time]
"the time is: now/time"

;一次读入
text: read %file.txt

;按行读入
lines: read/lines %file.txt

;读入binary数据，例如图片、音乐等
data: read/binary %file.bin

;读入网页
web: read http://www.rebol.com/test.txt

;下载网页
write %test.txt read http:/www.rebol.com/test.txt

;添加
write/append %file.txt "more text"

;按行写入
write/lines %file.txt lines

;写入binary数据
write/binary %file.bin data

;将指定内容远程写入ftp
write ftp://ftp.domain.com/file.txt "save this text"

;读取目录下文件列表
print read %intro/

;删除多个文件
delete [ %file1 %file2 ]

;删除目录
delete %dir/

;以file开头的文件
delete/any %file*

;以secret.开头，后面加一个字符的文件
delete/any %secret.?

sum: func [
    "Return the sum of two numbers."
    arg1 [number! tuple! money!] "first number"
    arg2 [number! tuple! money!] "second number"
][
    arg1 + arg2
]

print sum 1.2.3 3.2.1
4.4.4

;refinements设置
sum: func [
    "Return the sum of two numbers."
    arg1 [number!] "first number"
    arg2 [number!] "second number"
    /times "multiply the result"
    amount [number!] "how many times"
][
    either times [arg1 + arg2 * amount][arg1 + arg2]
]
print sum/times 123 321 10
4440

;反引号不对变量求值
say: func [`var] [probe var]
say test
test

;引号
 ++: func ['word] [set word 1 + get word]
count: 0
++ count
print count
1

;local表示变量只在当前func中生效
average: func [
    block "Block of numbers"
    /local total length
][
    total: 0
    length: length? block
    foreach num block [total: total + num]
    either length > 0 [total / length][0]
]

;匿名函数
sort/compare data func [a b] [a > b]

star-name: func [name] [
    stars: copy "**"
    insert next stars name
    stars
]
print star-name "test"
*test*
print star-name "this"
*this*

;注意这边"**"的local变量没有被copy
star-name: func [name] [
    stars: "**"
    insert next stars name
    stars
]
print star-name "test"
*test*
print star-name "this"
*thistest*

print 20 / 10
2

print 21 // 10
1

;向量加法
print 100x200 + 10x20
110x220

print 10.20.30 / 10
1.2.3

print 1.2.3 * 1.2.3
1.4.9

probe first luke
[self first-name last-name account balance]

probe next first luke
[first-name last-name account balance]

probe-object: func [object][
    foreach word next first object [
        print rejoin [word ":" tab get in object word]
    ]
]

probe-object fred
first-name: Luke
last-name: Lakeswimmer
account: 89431
balance: $1204.52

mysql: import 'mysql
mysql/open-db %my-db.sql

;多态
mod: 'mysql
import mod