Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1004092
  • 博文数量: 150
  • 博客积分: 3017
  • 博客等级: 少校
  • 技术积分: 3829
  • 用 户 组: 普通用户
  • 注册时间: 2011-11-19 14:40
个人简介

Now in Baidu WISE team

文章分类

全部博文(150)

文章存档

2014年(8)

2013年(31)

2012年(111)

分类: Python/Ruby

2012-04-26 17:50:10


  1. my @a = (1..9);
  2. my $key = 1;
  3. my @keys = (1..2);
  4. my @r = grep {$_ ne $key} @a;
  5. my @rs = grep {!($_ ~~ @keys)} @a;

阅读(1658) | 评论(0) | 转发(0) |
0

上一篇:数独的perl实现

下一篇:多米诺骨牌

给主人留下些什么吧!~~