八月 21, 2007 at 11:35 am · Filed under 未分类
如果cons的值是2的n次方与3的n次方的乘积,那么请写出对应的cons,cdr,car的实现
(define (fast-expt a n)
(cond ((= n 0) 1)
((even? n) (square (fast-expt a (/ n 2))))
(else (* a (fast-expt a (- n 1))))
))
(define (square x) (* x x))
(define (even? x)
(= (remainder x 2) 0))
(define (cons a b) (* (fast-expt 2 a) (fast-expt 3 b)))
(define (car z)
(dis-expt 2 z 0))
(define (cdr z)
(dis-expt 3 z 0))
(define (dis-expt x n count)
(cond
((= (remainder n x) 0) (dis-expt x (/ n x) (+ count 1)))
((= n 0) 0)
(else count)
))
六月 23, 2007 at 9:05 pm · Filed under 未分类
一些计算Fibnacci数列的函数写法：
fib 0 = 0
fib 1 = 1
fib n = fib (n-1) + fib (n-2)
– 最为直观的写法
sicp上练习1.19还有一种更巧妙快速的方法来求fibnacci
通过T变换函数:
a<- b*q + a*q + a*p;
b<- b*p + a*q;
将fib看成是p = 0,q= 1的t变换.
由于可以证明应用T(p,q)变换两次等于应用T(p’,q’)一次，而p’和q’可以直接通过p,q计算出
来.
p’ = q*q + p*p;
q’ = q*q + 2pq;
(define (fib n)
(fib-iter 1 0 0 1 n))
(define (fib-iter a b p q count)
(cond ((= count 0) b)
((even? count)
(fib-iter a b p’ q’ (/ count 2))
(else (fib-iter(+ (* b q) (* a q) (* ap))
(+ (*b p) (* a q))
p
q
(-count 1)))))
这个算法速度是log(n)
六月 7, 2007 at 11:52 am · Filed under 未分类
姑姑家的小孩整天吵着要电脑,在ybb同志资助了一个机柜后,终于将那个陪伴了我6年的老爷机修好了,在清除电脑上资料以免毒害祖国未来花朵的时候,却意外发现All about lily-chou-chou静静的躺在d盘上,这个当初看完了关于莉莉周一切的电影后,满世界疯找,向无数人推荐被鄙视无数次的音乐,特别是果子,在我力荐的时候毫不在意,却在几年后听了大发感叹…看来太过超前也是一种错误.电视里正播放着oasis的演出,我在这样英式迷幻的音乐下一本正经的看着Ajax In Action.人群挥舞着手臂,我也随着这氛围很high的进行css code.
友情提醒一下,在kill bill里当女主角去找服部半藏寻找绝世好剑的时候,那空灵的背景音乐正是All about lily-chou里的浅吟低唱.
五月 10, 2007 at 10:56 pm · Filed under 未分类
第一次听到Cells是牧羊人的推荐,一听就喜欢了,看来对brit-pop风格的音乐完全没有免疫力,因为这个才知道了sincity,看过后更喜欢这个music了.
首先是年轻，一听就是年轻的嗓音，这个我喜欢，还有他每个词都很用力，故意的，我打赌，他用略带尖亮的妖娆的嗓音迸出戏谑诡异的歌词来表达他颓废厌世的情绪和嬉笑怒骂周围的生活．我甚至能想象录音室里他对着扩音器唾沫横飞的样子．
我每次听到那一句：I watch them watch me I watch them too就要不由自主得笑起来．最后他不停的在哼着everyday,everyday，手里不停的敲着代码，和他一起摇晃高喊着太阳上山，太阳下山，每一天，每一天．．．
下载
二月 11, 2007 at 8:25 pm · Filed under 未分类
好电影就象好酒，不会因时间的流逝而褪色。 Trainspotting就是这样的电影.
影片的每段都堪称经典，特别是开头，ABOUT CHOOSE：
“Choose life. Choose a job. Choose a career.Choose a family. Choose a big fucking television, choose washingmachines, cars, compact disk players and electrical tinopeners…choose DIY and wondering who the fuck you are on a Sundaymorning. Choose sitting on the couch, watching mind-numbing,spirit-crushing game shows, stuffing junk food into yourmouth. Choose rotting away at the end of it all,pishing your last in a miserable home, nothing more than anembarassment to the selfish, fucked-up brats you spawned to replaceyourself. Choose your future. Choose life. But why would I want todo a thing like that?”
（“选择生活，选择工作，选择职业，选择家庭。选择他妈的一个大电视。选择洗衣机，汽车，雷射唱机，电动开罐机。选择健康，低卡里路，低糖。选择固定利率房贷。选择起点，选择朋友，选择运动服和皮箱。选择一套他妈的三件套西装。……选择DIY，在一个星期天早上，他妈的搞不清自己是谁。选择在沙发上看无聊透顶的节目，往口里塞垃圾食物。选择腐朽，由你精子造出取代你的自私小鬼，可以说是最无耻的事了。选择你的未来，你的生活。但我干嘛要做？我选择不要生活，我选择其他。理由呢？没有理由。只要有海洛因，还要什么理由？” ）
海洛因是他们的选择。在他们看来，世界上所有的其他事加起来都没有毒品爽。影片对吸毒描述得极为细致，那种爽毕了的表情是可以让每个没吸过毒的人都有欲望去尝试一下的。尽管导演也适当地表现了戒毒的痛苦，但总的看来，似乎他对吸毒更持有欣赏的态度。
混混们虽然迷恋毒品，游离于正常的社会轨道之外，但他们的道德观还是脱离不了传统的轨道。主角瑞顿第一次戒毒后恢复了性欲，不小心上了个未成年少女。当他知道真相后，马上就不再碰她；而瑞顿的好朋友之一，因为被女朋友甩了，痛苦不堪，借毒品来忘记女友，最后不只得了爱滋病，还因为被收养的猫传染了脑蠕虫病而在肮脏的环境中悲惨地死去；瑞顿在一次吸毒过量中被救活，从此下决心戒毒和回归正轨。但他的旧朋友还是对他纠缠不清。在迫不得已和他们偶然做成的一宗毒品买卖后，瑞顿卷款而逃，当然也没忘了给他心地善良的好朋友土豆留下2000英镑，从此用毒品得来的钱告别他的过去，开始了与旁人无异的正常新生活……
不管年少时如何叛逆，最终还是会回归主流。不羁的坏小子最后还是选择了大电视，洗衣机，房贷，结婚，生小孩，看无聊的节目，吃没营养的垃圾食品……
跟吸毒的颓废生活相比，尽管主流的生活是沉闷了点，但至少不会那么无望。人是不能太较真想事情的，想得多就容易陷入虚无。另类也不是那么好当的。
这样的结局我不知道算不算是年轻人对现实的妥协，但导演的意思肯定是说人的思想行为是会随着环境的改变而改变的。生活以它的方式潜移默在地改造着你，你作出改变，以为是自己的选择，却不知这是生活在选择着你……
只有极少数的人可以在生活的缝隙突围而出。
(电影的电子配乐非常出色,http://radio.ifensi.com/radio-67310.html,听的是无比的爽)
十二月 16, 2006 at 9:55 pm · Filed under 未分类
2006创智赢家的主题曲,由我型我秀的俞思远 王啸坤演唱,充满了动感与激情.
Money Money Money Show Me The Money
我带着赢的誓言
来赢得我的明天
我知道创业维艰
但我不怕没人出钱
我张扬 我跌倒
为了理想没有怨言
我做过 付出过
上天也会多爱我一些
我踏着赢的步伐
向每个机会出发
我知道我不伟大
但是我有我的想法
追梦想 拼未来
现实战役一触即发
我相信 我可以
凭我努力白手起家
挑战每一天 用智慧去 赢得整个世界
在成功以前 会有一些 挫折在所难免
挑战每一天 战胜自己 赢得整个世界
勇敢去对决 把梦实现 把梦实现
十一月 20, 2006 at 10:03 am · Filed under 未分类
如果在婚礼的前一天，你的真命天子才出现，你会如何选择？或许是失声痛哭，错愕多年韶华混顿而逝，然后弃下一切，随他浪迹天涯？亦或许“恨不相逢未嫁”时，婚约已成，不复可能，从此低头顺眉做一生隐忍的人？
韩国电影《Aein/爱人》却是一个以过于激情的镜头来阐述一个关于爱情乏味困惑的电影。乏味的原因，一半是因为它在现实生活中经常出现，爱情从来都是盲目的，没有人能够给它下一个明确的定义，爱与不爱往往是一夕之间的事情，谁也不能给爱情的袋子打上保鲜期；一半是因为似乎每一个答案都不够圆满，向左走，谁也不预料那粒“朱砂痣”会不会变成“蚊子血”，向右走，谁也不知道那粒“米饭渍”会不会变成“明月光”，不得其解就会惹人生厌。
一个女人被电梯里偶遇的一个男人释放的强大气流所击中，并且确认自己无法逃脱，“如果到第三层还没有人进电梯，我就请你喝酒”。这种特殊的感觉是她恋爱七年马上就要结婚的男友所不能给的。七年之痒，激情也变成温开水了，而他的占有欲，而他的明天或许就不复有再的可能是一份如引巨大的诱惑力。
就在一天的时间里，他们在那个淡了背景的城市里一再地偶然相遇，然后沦陷在欲望和情爱纠杂的海水里面，像两个自溺的人。他们把对方都当成拯救自己的稻草，一个想摆脱地在七年里一分一秒被消耗的感情，一个想在离开之前寻求一个值得怀念的面孔，可他们却沉溺得更深。这是一段不需要交待的感情，彼此不知道名字、年龄，唯一的任务就是制造浪漫的爱情和愉悦，在偏远展览馆的密室里，在人声喧哗的KTV包厢…
粗重的气息让人缺乏思考的能力，他们不能确信他们是否真正相爱了。他们也有停息下来的时候，在街头的餐馆吃饭，她因为喝了凉水而剧烈的咳嗽，他记下来了。在公园的长椅上，他用白笔把她的手印画在椅面上，说以后想她的时候会在这里与她握手。他跟她去买衣服，换下那身白色的套装，穿棕绿相间的麻质长裙，他们奔走在夏雨突袭的街头，然后在黑漆漆的小巷子里面亲吻，他们忽然又相信起爱情来……
那个与她相爱七年的男人出现了，我们看清了那场爱恋以及一些婚姻的本来面目，那个相爱七年的男人已经开始习惯他们之关的不同，开始对她的情绪感到麻木，开始将婚姻视为一个终点，一个一劳永逸的目的地，相爱七年的男人一再地顺应她，这让她感到绝望。
她在那几秒里面确认自己可以决定与那个陌生的男子一起消失，可是一切却又来得太快太过草率。他们坐在一间廉价的餐馆里面，服务生给她端来凉水，他阻止了让服务生换成了温水。就是这个小小细节，却让她隐隐地看到了又一个七年之后的感情。他们在小公园举行了只有两个人的婚礼，尽管他们都说“不愿意”，他们却仍然很开心地去过他们的“新婚之夜”。当天色微微发出宝蓝色，她在镜中看到自己今日的容颜老于昨晚，她或许在心里明白，天亮便是该说再见了的时候了。
人世间的感情不过两种，一种相濡以沫却厌倦到老，一种相忘江湖却怀念到哭。末了，她坐上远去的出租车，他仍立在原地。车子开出不久后，便遇到红灯。车子停在斑马线前，他立在原地向她的方向张望。她的手缓缓地伸到门把手上……
然后绿灯亮了，她在一念之间得到了两种感情。
十月 31, 2006 at 2:12 pm · Filed under 未分类
如果，没有紧紧抱住，爱，就会消失……
她是一个纯真（宫崎葵饰）的17岁高中生，长得像是一枝清淡的茉莉，成绩、家庭和人缘等各方面都颇为出色的她却偏偏不擅长弹奏自己十分痴迷的吉他。
偶然的一次，放学回来正往家的方向走去的她被河边飘来的吉他声音所吸引，弹奏的男孩（瑛太饰）模样乖巧冷然，与她是一个年级的校友。她拜他为师，课余时间里两人就经常在一起玩音乐，谈关于家庭、梦想的心事。爱的花蕊悄然在他们心中盛开。彼此爱慕的两个却始终没有互吐情愫。
她姐姐的到来，扰乱了两人暧昧的初恋。姐姐是一个性格爽朗的女生，她也对腼腆的男孩一见倾心。善良的宫崎葵退出了这场迷乱的三角纠葛……17年后，她（永作博美饰）与他（西岛秀俊饰）再次相遇，那句爱的告白，却失散在了喧嚣的人群中。
那种清涩而朦胧，试探而不敢询问答案的等待，是那么折磨人，让人只能任凭命运的摆弄，可是又因着它的纯洁无暇全心付出，让人难忘，铭心刻骨。
十月 2, 2006 at 10:59 pm · Filed under 未分类
让我驯养你吧
不是，是喂养
我们吃得随意
但是
一年总要有两个假期。我会带你远游
去你想去的一切地方
我们可以在一起三十年，我是指体力足够远行
等不能走了
我们就在院子里
看我们当年拍的照片
去过的地方
看过的风景
你笑了
一地假牙
花都开了
这么多年
都是这样
你一笑，花就开了
我能听到花开的声音
九月 1, 2006 at 3:40 pm · Filed under 英式摇滚
Upper Room(Other people’s problem)
不要因为无名而拒绝喜欢，忘记是谁说过这么一句话了，放在Upper Room的这张新专辑上，完全就是一种赞誉。
典型的英式摇滚曲风和结构，标准的英式发音，旋律动听，吉他间奏华丽而又率真。《Portrait》，教科书版的英式摇滚，似乎每个音符都充满了触摸理想的兴奋。
Radio有点伤感，弥漫着告别意味，有种radiohead式的忧伤和希望。
阳光式的英式摇滚，Britpop…永远都是那么美丽。
Artist: The Upper Room
Album: Other People’s Problems
Date: 2006.05.29
Genre: Britpop ，Indie Rock ，Alternative Pop/Rock
Track Listings ：
1. All Over This Town
2. Black And White
3. Leave Me Alone
4. Your Body
5. Never Come Back
6. Kill Kill Kill
7. Portrait
8. Centre
9. Once For Me
10. Girl
11. Combination
12. It Began On Radio
·
Next entries »
