注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Puriney's Notes

Puriney=purine+Y, my Wonderland

 
 
 

日志

 
 

【图说杂事】数字决定一切+你的小快乐还在么?  

2011-08-30 02:24:01|  分类: UBUNTU |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
一切缘故都源自于此照片:
【图说杂事】数字决定一切 - 飘零迷丁儿 - 吾本罪人
 
计算这个文字的同学,那是一个多么有爱而又寂寞的人呀?没事折腾数字去?桑不起哟。于是我有感于matrix67大神的以前一篇blog——蛋疼研究之单词等式。即通过把26个字母转换为36进制数字来看待进行的等式计算,着实是蛋疼不已。比如原文中列举的如下两个有趣的例子。
ACT + DEAL = DONE  (行动+决定=成功)
COIN + TRY = DIAL  (钞票+努力=搞定)  【好吧,翻译成中文就没有趣味了】

回到本文的图片,于是蛋疼的我就想,是不是再找找其他还有什么其他100%的有意义的单词?比如lesbbian就桑不起了。
【图说杂事】数字决定一切 - 飘零迷丁儿 - 吾本罪人
能找到==100的单词,不用疑惑,肯定有不少。还有不少是>100的单词。找到一些有意思的单词就需要人工看了。同样蛋疼的我同样也找到了一些,如上图。

我没有查找字典,而是查找了最近的《经济学人》杂志、《TIME》杂志里的文章,写了段代码翻每一个单词来找而已。事实上有一些邪恶的我想到的一些邪恶的单词,也有不少没什么意义的单词。

unbroken 100   #所以相亲时男士对女生特殊要求的某种情节,是可以理解的。
injection 99  #所以我是邪恶的
inflation 100  #狂傲自大也可以有?
Turkey 100  #所以这样一个不屑亚洲国家而自夸为欧洲国家却向来不被欧洲国家看好的国际你桑不起
car-burner 100
arrivals 100
strangled 100
Saltillo 100
congress 100
stabilised 100   #稳定的男人是可靠的,嗯嗯嗯
strains 100
restocked 100
regroup 100
succour 100
prevent 100
threatened 100
Personal 100   #所以隐私也是非常重要的
Services 100   #服务是最重要的,嗯嗯嗯

现代人对简单快乐的丧失
 还有很多很多不一一列举了,因为这样的赋值本身是没有意义的。可是今天我还是晚上打发时间来写这个的原因在于有感于现代人对简单快乐的丧失

故事起因在于偶转发了此条围脖并开玩笑说:“是不是写段代码来找其他100%的单词来吐槽之?”
随后同事转发之并讨论:"是不是用ASCII码来做?",我点击看了看同事的这条状态,确实觉得好玩竟然还真有人附和。发现被路人吐槽了,路人大概意思就是:“这样的赋值没有意义”,“太遥远了,那叫扯 ” ,“如果你拿高中或以上程度的数学(指本文连接的matrix67那篇文章)给我看,那叫找死。”

相信路人是一名代码、数学高手,才会如此高调。不过偶在想,这是不是高人们对简单快乐的丧失呢?

相信很多coder们记得第一次写出“hello world”时的一种特殊情感,记得第一次用c的指针,记得第一次用perl的哈希,记得第一次搭建数据库,第一次攻破学校服务器……为曾经简单的想法而努力最后实现,曾经的快乐是如此简单。可慢慢长大、成熟,竟然对一切觉得理所当然、对一切曾经新鲜的事物不再新鲜,不再会问为什么天空是蓝色?为什么会打雷?为什么小鱼会游泳?

如果觉得这些问题很白痴很常识,那请读者1秒內给我答案?那“为什么喝酒脸白的人容易醉死”这样值得高智商人回答的问题,又可否有答案呢?

把一切当作常识、把一切当作想当然,却不去google却不去没事瞎想想,那就慢慢地等着被CCAV的砖家和马悦凌马酵母忽悠吧少年

--代码--显然这段代码有很多纰漏


01 #!/usr/bin/perl -w
02 use strict;
03 my $in_file = $ARGV[0];
04 my $out ="who_is_100";
05 die "input file\n" unless (@ARGV ==1);
06 open IN ,$in_file;
07 open OUT ,">$out";
08 foreach (<IN>){
09 chomp;
10 my @text = split /\s+/,$_;
11 my $word;
12 foreach $word (@text){
13 my $sum = 0;
14 if (length $word >4){
15   my @letter_array;
16   @letter_array = split //,$word;
17   my $letter;
18   my ($des1,$des2)=("","");
19   foreach $letter (@letter_array){
20    my $no = 0 ;
21    $no = &letter2num($letter);
22    $sum = $sum + $no;
23    $des1 = $des1 . $letter."+";  
24    $des2 = $des2 . "$no" . "+";
25   }
26   print OUT $word."=".$des1."=".$des2."=".$sum."\n" if ($sum == 100);
27   #print $word."\t".$sum."\n" if ($sum == 100);
28 }
29 }
30
31 }
32 sub letter2num{
33 my $num;
34 $num =
35 ($_[0] =~ /a/i) ? "1":
36 ($_[0] =~ /b/i) ? "2":
37 ($_[0] =~ /c/i) ? "3":
38 ($_[0] =~ /d/i) ? "4":
39 ($_[0] =~ /e/i) ? "5":
40 ($_[0] =~ /f/i) ? "6":
41 ($_[0] =~ /g/i) ? "7":
42 ($_[0] =~ /h/i) ? "8":
43 ($_[0] =~ /I/i) ? "9":
44 ($_[0] =~ /j/i) ? "10":
45 ($_[0] =~ /k/i) ? "11":
46 ($_[0] =~ /l/i) ? "12":
47 ($_[0] =~ /m/i) ? "13":
48 ($_[0] =~ /n/i) ? "14":
49 ($_[0] =~ /o/i) ? "15":
50 ($_[0] =~ /p/i) ? "16":
51 ($_[0] =~ /q/i) ? "17":
52 ($_[0] =~ /r/i) ? "18":
53 ($_[0] =~ /s/i) ? "19":
54 ($_[0] =~ /t/i) ? "20":
55 ($_[0] =~ /u/i) ? "21":
56 ($_[0] =~ /v/i) ? "22":
57 ($_[0] =~ /w/i) ? "23":
58 ($_[0] =~ /x/i) ? "24":
59 ($_[0] =~ /y/i) ? "25":
60 ($_[0] =~ /z/i) ? "26":
61      "0";
62 $num;
63 }
  评论这张
 
阅读(724)| 评论(3)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017