Dwarf Home » moradin

上海世博会-沙特城市名片册-半淞园路-3号门-抢票攻略

moradin — Mon, 21 Jun 2010 15:05:45 +0000

沙特阿拉伯国家馆VIP

5:10
　　轻装上阵，保证7点前肚腹不出任何状况。必要时武力干涉插队者！

7:00
　　闸门开启，安检口从左至右为1号到4号，其中1号2号口为团队入口，团体票不可领取城市名片册。
　　3-1离闸门最近，离目的地最近，若最初没有高排位（40名内）建议放弃。
　　4-2离闸门最远，离目的地最远，即便排位在200位开外都可以在这里拿到前20的排位，以保证获得中国馆优惠券（每个安检口不到80张）。
　　考虑到安检时间因素，3-1的第30名不一定能比4-2的第15名先到直道。
　　洗手间在闸门一侧，若因故离开安检通道，工作人员会给一个手环放行，请在8:30同样确保肚腹就绪，准备热身。

9:00
　　开始安检，将所有杂物放入包内，门票握于手中，大声对安检员说：“我身上没带东西。”，切记正面扫完立即转身让其扫背面。
　　详细路线见hellogordon的《城市名片册使用图文全攻略》
　　上天桥时一定要乘电梯恢复体力。
　　不要听小白菜的指挥，果断走小路。

9:02
　　走大路（圆弧）则考虑拿案例联合馆2的总共20张德国馆VIP，但此时排队已满20人。

9:05
　　70张沙特城市名片发放完毕。凡拿到名片者必然可以换得对应预约券/VIP，不必着急敲章。

路线图（点击放大）

Moradin于6月18日的抢票时间表：
　　05:10：3号口，约第120名
　　07:00：开放闸门，跑向4-2，第11名
　　09:03：急奔八百余米，入手沙特城市名片
　　（仅供参考）

注：尽管台湾馆9:30发放4000张，18:00发放1000张，但16:30于台湾馆门口的预约券发放区便早已排满1000人，停止排队。

打工第二天

moradin — Mon, 21 Jun 2010 02:07:30 +0000

　　第一天各种不适应，污浊的空气，油腻的盒饭，厚厚一本华硕各款产品的参数表。当我费力的背了一个下午后，小杨哥对我说：“当年我把市面上所有的配件全背出来呢，一点用都没，客户配来配去就这么几件。难道你背完型号再背价格？”。电梯附近的两家铺面仰仗地理优势几乎把每一位上楼的顾客拉走，有幸闯过那一关的寥寥无几。
　　没有什么比读书更轻松的事情。周日来了一对小夫妻和他们一懂行朋友，那位朋友宅气深厚，配完提货时和那人聊天，得知此人不仅是sjtu的，还是oier。瞬间石化！可惜即便了解些硬件，宅男属性使得他不仅对小杨哥，还对那对小夫妻迸发着科技宅的威能。喂，你们应该一致对外的好不好！
　　对于那些手上拿着一刀报价单毫无诚意的问价主顾，心情好给你随便开个价，心情不好每件亏三十块写给你，看场子里有谁比这个低，到时候就和你说没货。攒机只要一开始做足功课，老板见你懂点门道也就知道黑不到你，大家赚钱都不容易，去哪个铺子还不都一样。

　　场子里还有些可爱的人，只是有股淡淡的心酸。

快递大叔的助动车上红色的小雨衣

　　被晒得黝黑的大叔乐呵呵的每天下午将需要发的快递拉走，这仅仅是一辆类似新大洲的小助动车。

做为优质宅

moradin — Sat, 19 Jun 2010 00:30:07 +0000

　　接下来一系列博文讲述的是一位名叫Moradin的宅生活。
　　远离WIFI，远离显示器……

最重要的是能活下去

moradin — Sat, 05 Jun 2010 06:59:04 +0000

　　远离敏感词
　　保护好眼睛
　　学门手艺
　　懂围棋，会游泳、会开车
　　练好嘴皮子
　　如同学习要先把书读厚，再把书读薄，最后把书忘掉；做人先要把脸皮做厚，再把脸皮做薄，最后把脸皮忘掉

　　高考结束，继续活下去

那些记不起名字的低俗电影

moradin — Sat, 13 Mar 2010 02:36:24 +0000

　　我的豆瓣：http://www.douban.com/people/moradin/

　　在最近X年前的Y年里，文艺频道的周六动作90分钟，东方电影、CCTV6帮助我确立了烂片的标杆，为了给那些奋斗在为观众带来欢乐，协助谋杀时间的电影一个名分，以下Z段电影片段总是萦绕在我心头，情何以堪。

　　PS：电影一定是极度恶俗极度无聊，不要往小众片联想

　　1、肯定有黄秋生，他喜欢的女人被别人追，有个场景是一群警务人员的酒会；另一个场景是一个男人（警员？卧底）在高架上准备劫囚车，先放了一段他的想象：双方没有开火。实际上匪徒直接重火力上了。片头有个警察被B社会叫出去聊天，有人躲后面拍照，在游乐场用这个照片威胁他和B社会有染

　　2、香港片，在游乐场取赎金的人是警察（好像被黑社会威胁），结果他一露面就被送赎金的人追

　　3、保护一个女污点证人，刚开始在询问的时候一个律师假装资料落地在她高跟鞋足弓下方放了追踪器，他们藏身的地方被人用火箭炮轰杀，之后脱光衣服开面包车直冲某店抓起衣服就穿，最后两个男警察从顶楼外墙用绳索下降，一个男的对另一个男的说：“我们要比电梯更快”

　　4、动画片，95年左右，主角全是拟人化直立行走的老鼠，似乎是美国乡村。

　　5、国产片，讲忽悠3个小姑娘（一个是农村来的，和另外一个是姐妹，另一个的男朋友是和人贩子一起忽悠的）偷渡到泰国，里面手机电脑都是稀罕物，整部片子光曰不日，里面还有一对悲剧的夫妇.

　　6、美国片，讲地球人是外星人养的农作物，他们在冰层下发现一个能治愈百病的东西，其实是外星人的农药，后来那个外星人醒了，结果没想到人类已经会用电了，那几个人做了一个简易的放电装置+三叉戟把那个外星人做掉了。

　　7、香港片，有2个男人和一个小孩，男人有一根会伸缩到剑，01年左右在东方台放过，有人署名“一个好人” 问出他们的位置去帮他们的时候没关电脑，坏人到这人家里也看到了位置也赶去杀他们，最后在森林有一个宝箱，小孩说有钱的话我要买gameboy，男人说不要说gameboy,gamefather也给你买，结果是一张白纸，他们失望的丢掉，出演职员表时这张纸遇水显出藏宝图

　　8、香港片，好像有成龙，主角在某公司看到一个3位数的号码，想细看的时候全部资料都被洗掉，后来乱逛看到一家店的玻璃上写了这个号码，进去看的时候枪掉进火锅，抓起来开了两枪后把枪丢给敌人，敌人拿这把枪的时候烫得丢掉了自己本来有的枪。

　　9、黑老大找到他女儿，他女儿的男人以为要被做掉，结果黑老大吃了口饭说：女儿以后不要做夹生饭

　　10、美国片，好像分上下2集，最后有个直升机拉起集装箱卡车上的集装箱

　　11、电影，有架战斗机落在沙漠里，有个男人启动了下好像没飞起来但开到某个人多的地方，好像有个像拉丹的人，好像有成龙，好像有龙卷风

　　12、93年的动画，有个女的是义军头目

　　13、国产黑白片，谍战剧，片头的演职员表是在一个装水的水斗里一张张纸贴上去，里面讲调查一个间谍，最后是要炸一个船，一群警察在里面找炸弹到底藏哪里了

　　14、欧洲风格的环境，有个探长有条狗，那时候电脑刚出来，是讲一个旧屋子里莫名其妙死人了，经调查是有个电脑游戏教唆杀和谐人，好像是颜色很红的第一人称设计游戏。

　　15、港片，水管里养金鱼，元彪

　　16、好像叫“什么双雄” 结尾是在某大楼上，2个人打。这个片子的坏人是专门演坏人的家伙，结尾之前有个女人被堵嘴绑着，被赶来的警察解开后呼吸困难但是马上冲出去想找那个男人。

　　17、美片，宾馆某楼所有门被封闭，那人用清洁剂打开房门，他监听了警察的通话，房门都是电子锁，可以在控制室锁住。

“参数错误，读取数据失败”怎么办？

moradin — Sat, 06 Mar 2010 03:17:19 +0000

参数错误，读取数据失败

是否在修改退款协议后出现这样的提示？

解决方案：
请修改【退款说明】中的文字使其字数小于200字。

vijos_1093

moradin — Thu, 05 Nov 2009 15:00:57 +0000

文科生的悲哀-90min-数论

Hint

1、按照题目思路写递推，连看题共10分钟，余下80分钟waiting+debug
2、qword的胜利，于是我就没有mod 7654321
3、这题不是明摆着斐波那契数列
4、最后WA，数列第一项、第二项输出0，80分
5、我无限逼近于2B

^?Download vijos_1093.pas

var n,i:longint;
    f:array[1..4] of longint;
begin
  readln(n);
  f[1]:=1;
  f[2]:=1;
  f[3]:=1;
  for i:=3 to n do begin
    f[3]:=(f[1]+f[2]) mod 7654321;
    f[1]:=f[2];
    f[2]:=f[3];
  end;
  writeln(f[3]);
end.

编译通过…
├ 测试数据 01：答案正确… 0ms
├ 测试数据 02：答案正确… 0ms
├ 测试数据 03：答案正确… 0ms
├ 测试数据 04：答案正确… 0ms
├ 测试数据 05：答案正确… 0ms
├ 测试数据 06：答案正确… 0ms
├ 测试数据 07：答案正确… 0ms
├ 测试数据 08：答案正确… 0ms
├ 测试数据 09：答案正确… 0ms
├ 测试数据 10：答案正确… 0ms
————————-
Accepted 有效得分：100 有效耗时：0ms

vijos_1095

moradin — Thu, 05 Nov 2009 14:07:13 +0000

约瑟夫问题10E100版-60min-数论,高精度

Hint

1、23点后应该睡觉
2、2*n+1写成2*n-1
3、伪高精度不够熟练
4、n=1时输出1
4、约瑟夫问题的二进制解法，将第一位移到最后一位（9=1001，输出0011=3）

^?Download vijos_1095.pas

type arr=array[0..100] of integer;
var f,ok,p,t,k,i,j:longint;
    s:string;
    a:array[0..332] of arr;
    b,b1:arr;
    c:array[1..100] of integer;
begin
  fillchar(a,sizeof(a),0);
  a[0,0]:=1;
  a[0,1]:=1;
  for i:=1 to 332 do begin
    p:=0;
    a[i,0]:=a[i-1,0];
    for j:=1 to a[i-1,0] do begin
      t:=a[i-1,j]*2;
      inc(a[i,j],t mod 10);
      inc(a[i,j],p);
      p:=t div 10;
    end;
    if p<>0 then begin
      inc(a[i,0]);
      a[i,a[i,0]]:=p;
    end;
    c[a[i,0]]:=i;
  end;
  readln(s);
  b[0]:=length(s);
  for i:=1 to b[0] do val(s[i],b[b[0]-i+1],ok);
  for i:=c[b[0]] downto 1 do begin
    f:=0;
    for j:=b[0] downto 1 do
      if b[j]>a[i,j]
        then begin
               f:=1;
               break;
             end
        else
          if b[j]=a[i,j]
            then continue
            else begin
                   f:=2;
                   break;
                 end;
    case f of
      1   :begin
             for k:=1 to j do begin
               if b[k]<0
                 then begin
                        dec(b[k+1]);
                        inc(b[k],10);
                      end;
               b1[k]:=b[k]-a[i,k];
               if b1[k]<0
                 then begin
                        inc(b1[k],10);
                        dec(b[k+1]);
                      end;
             end;
             b1[0]:=j;
             if b1[j]=0 then dec(b1[0]);
             str(i,s);
             fillchar(b,sizeof(b),0);
             b[0]:=length(s);
             t:=0;
             for j:=b[0] downto 1 do begin
               val(s[j],b[b[0]-j+1],ok);
               inc(b1[j],b[j]);
               if b1[j]>10
                 then begin
                        inc(b1[j+1]);
                        dec(b1[j],10);
                      end
             end;
             if b1[b1[0]+1]<>0 then inc(b1[0]);
             for j:=b1[0] downto 1 do write(b1[j]);
             writeln;
             halt;
           end;
      0   :begin
             writeln(s);
             halt;
           end;
      end;
  end;
end.

vijos_1080

moradin — Wed, 04 Nov 2009 12:50:17 +0000

Function(Function(F…-20min-搜索

Hint

1、判定“-1 -1 -1”出错
2、该函数事实上满足w[a,a,a]:=2^a；当 (a<=b) or (a<=c) 时 w:=2^a
3、根本不用在前面加判断，直接把函数值赋给数组

^?Download vijos_1080.pas

var a,b,c:longint;
    m:array[0..20,0..20,0..20] of longint;
function w(a,b,c:longint):longint;
var p,q,r,s:longint;
begin
  if (a<=0)or(b<=0)or(c<=0)
    then w:=1
    else
      if (a>20)or(b>20)or(c>20)
        then
          if m[20,20,20]<>0 then w:=m[20,20,20]
                            else w:=w(20,20,20)
        else
          if (a)and(b)
            then begin
                   if m[a,b,c-1]<>0 then p:=m[a,b,c-1]
                                    else p:=w(a,b,c-1);
                   if m[a,b-1,c-1]<>0 then q:=m[a,b-1,c-1]
                                      else q:=w(a,b-1,c-1);
                   if m[a,b-1,c]<>0 then r:=m[a,b-1,c]
                                    else r:=w(a,b-1,c);
                   w:=p+q-r;
                   m[a,b,c]:=p+q-r;
                 end
            else begin
                   if m[a-1,b,c]<>0 then p:=m[a-1,b,c]
                                    else p:=w(a-1,b,c);
                   if m[a-1,b-1,c]<>0 then q:=m[a-1,b-1,c]
                                      else q:=w(a-1,b-1,c);
                   if m[a-1,b,c-1]<>0 then r:=m[a-1,b,c-1]
                                      else r:=w(a-1,b,c-1);
                   if m[a-1,b-1,c-1]<>0 then s:=m[a-1,b-1,c-1]
                                        else s:=w(a-1,b-1,c-1);
                   w:=p+q+r-s;
                   m[a,b,c]:=p+q+r-s;
                 end;
end;
begin
  readln(a,b,c);
  while not((a=-1)and(b=-1)and(c=-1)) do begin
    writeln('w(',a,', ',b,', ',c,') = ',w(a,b,c));
    readln(a,b,c);
  end;
end.

编译通过…
├ 测试数据 01：答案正确… 0ms
————————-
Accepted 有效得分：100 有效耗时：0ms

vijos_1064

moradin — Wed, 04 Nov 2009 12:40:45 +0000

迎春舞会之数字舞蹈-30min-字符串

Hint

1、用点阵数组可以少打点字
2、输出时“6”镜像了……

^?Download vijos_1064.pas

var k,i,j,n,ok:longint;
    s:string;
    a:array[0..65] of longint;
procedure b(t:longint);
var i:longint;
begin
  for i:=1 to t do write(' ');
end;
procedure p(t:longint);
var i,j:longint;
begin
  case t of
  {0:   }0:b(k+2);
  {1:  |}1:begin
             b(k+1);
             write('|');
           end;
  {2:|  }2:begin
             write('|');
             b(k+1);
           end;
 
  {3:| |}3:begin
             write('|');
             b(k);
             write('|');
           end;
  {4: - }4:begin
             write(' ');
             for i:=1 to k do write('-');
             write(' ');
           end;
 
  end;
end;
procedure num(q,t:longint);
var i,j:longint;
begin
  case t of
    1:case q of
        1,3,5:p(0);
        2,4:p(1);
      end;
    2:case q of
        1,3,5:p(4);
        2:p(1);
        4:p(2);
      end;
    3:case q of
        1,3,5:p(4);
        2,4:p(1);
      end;
    4:case q of
        1,5:p(0);
        3:p(4);
        2:p(3);
        4:p(1);
      end;
    5:case q of
        1,3,5:p(4);
        2:p(2);
        4:p(1);
      end;
    6:case q of
        1,3,5:p(4);
        2:p(2);
        4:p(3);
      end;
    7:case q of
        3,5:p(0);
        1:p(4);
        2,4:p(1);
      end;
    8:case q of
        1,3,5:p(4);
        2,4:p(3);
      end;
    9:case q of
        1,3,5:p(4);
        2:p(3);
        4:p(1);
      end;
    0:case q of
        1,5:p(4);
        3:p(0);
        2,4:p(3);
      end;
  end;
end;
begin
  readln(k);
  readln(s);
  n:=length(s);
  for i:=1 to n do
    val(s[i],a[i],ok);
  for i:=1 to 2*k+3 do begin
    for j:=1 to n-1 do begin
      if i=1
        then num(1,a[j])
        else
          if (i>1) and (i+2)
            then num(2,a[j])
            else
              if i=k+2
                then num(3,a[j])
                else
                  if i=2*k+3
                    then num(5,a[j])
                    else num(4,a[j]);
      write(' ');
    end;
 
    j:=n;
    if i=1
      then num(1,a[j])
      else
        if (i>1) and (i+2)
          then num(2,a[j])
          else
            if i=k+2
              then num(3,a[j])
              else
                if i=2*k+3
                  then num(5,a[j])
                  else num(4,a[j]);
 
    writeln;
  end;
end.