有人用tcl script么？请教个问题 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Programming - 葵花宝典

有人用tcl script么？请教个问题

有人用tcl script么？请教个问题# Programming - 葵花宝典

u*l2016-09-22 07:09

1 楼

08/18/2011首发于文海版，成文时间03/2000。郭襄同学是被自己的付出感动了，外人
看着挺悲剧，其实也算是一个人幸福了一辈子。所幸武侠只是成年人的童话，现实生活
中没人会这么傻。
郭襄
相见时已是太晚。曾经拥有的激情与希望都已永远不会再来。但你英俊的面容依然
如此眩目，如此的令我心悸与感动。
如果说和你的相遇不是天意，为何在那个风雪交加的风陵渡口，我会为人们口中不
经意的传说而只身涉险？如果说我不是你要等待的那个人，为何爱恨悲欢生长在你的心
里如同生长在我的心里？可是，如果你真的是上天的恩赐，为何遇见你时，你已经付出
了一生的眷恋与牵挂？
因为爱你而爱你爱的人，是我的本分。更何况你给了我那么多的宠爱，我已知足。
在纷乱的尘世里，在越来越漫长的等待里我知道：相聚时爱情是禅，不能说，一说
便是错；离别后你是我心中的伤，不能想，一想便是痛。而在不断重复的错误与伤痛里
我最终会逐渐成长起来，逐渐缓慢而坚定地学会如何去面对，如何去真正的爱和生活。
因此，我从不后悔，为我做过的、正在做的、以及将来要做的一切。
再见你一面已是奢望。如果我还能有一根金针，还可以有一个可以实现的心愿，我
只求再一次从人们的口中，从江湖的传说中听见你的名字。
生命中最璀璨的一页已随青丝远去。我不后悔。因为我已学会面对，学会生活。
窗外有阳光雪山，有苍松翠柏。窗内，佛陀在高高的莲台上微笑着俯视我，宁静而
安详。

h*62016-09-22 07:09

2 楼

How do you guys input Chinese using iPhone? Any good application to
recommend?
★ 发自iPhone App: ChineseWeb - 中文网站浏览器

l*a2016-09-22 07:09

3 楼

1. 50000 Points - SapphireSM Preferred Card -$500 开卡奖励 Best offer for
2011
限时大特惠，Chase 提供超高开卡bonus-5000points，可以直接兑换$500支票，或足以
兑换两张美国国内往返机票，还可以在ultimaterewards里当期giftcard特惠，可以最
高兑换$625当期优惠的gift card。第一年无年费。这个是平时双倍开卡的benefit，是
非常不错的deal
Earn 50,000 bonus points after you spend $3,000 in the first 3 months- that'
s worth $625 toward airfare or hotel accommodations!
http://goo.gl/jycFB
2.Chase Freedom Card - $150 Bonus Cash Back + 5% Cashback on Purchases
开户送$150现金，而且让您每个季度在不同的消费栏目(比如买菜，加油，百货)有5%现
金返还
Earn $150 Bonus Cash Back after you make $500 in purchases in your first 3
months
http://goo.gl/29TB3
3.Chase SapphireSM Card – 25000 Points
申请就送$250现金，买机票和旅馆住宿2%现金返回，无年费
Earn $250 in rewards - that's 25,000 bonus points after you spend $3000 in 3
months!
http://goo.gl/hOF3Z
4.United Mileage Plus Card 30000miles offer+$50bonus只需要任意一笔消费无金额
限制
http://bankbonus.blog.163.com/
5. Chase continental onepass 30000miles offer+$50bonus 只需要任意一笔消费无
金额限制
http://bankbonus.blog.163.com/
6. 免费的Marriott Hotel 四晚酒店入住只需消费一笔无金额限制
http://bankbonus.blog.163.com/
最近申请chase家的这个信用卡会弹出一个页面，写着Before you go…We hope you
will reconsider 难不成他们家最近被人拿太多这个免费机票了不用对它客气，
赶紧点击Return&Apply，拿到落袋为安。更多详细情况请查看
http://bankbonus.blog.163.com/

c*t2016-09-22 07:09

4 楼

tcl 里面proc call 的overhead 很大么？
我试过了比如我有个proc：
proc foo { value } {
if {$value == "A" || $value == "B" } {
return C
}
return $value
}
用 proc：
for {set i 0} { $i < 100000} {incr i} {
set a 100
set a [foo $a]
}
和不用proc
for {set i 0} { $i < 100000} {incr i} {
set a 100
if {$a == "A" || $a == "B"} {
set a C
}
}
run time 可以差到70%。求解释。求speed up的办法。
谢谢

z*e2016-09-22 07:09

5 楼

Setting -> General -> Keyboard，增加中文，有拼音、五笔和手写。

j*a2016-09-22 07:09

6 楼

我的virtualbox里面跑只差30%
real 0m0.334s
user 0m0.330s
sys 0m0.000s
real 0m0.265s
user 0m0.263s
sys 0m0.000s

【在 c*******t 的大作中提到】

: tcl 里面proc call 的overhead 很大么？
: 我试过了比如我有个proc：
: proc foo { value } {
: if {$value == "A" || $value == "B" } {
: return C
: }
: return $value
: }
: 用 proc：
: for {set i 0} { $i < 100000} {incr i} {