七行プログラミング (452ﾚｽ)
上下前次1-新
169: nobodyさん [sage] 03/10/08 01:14 ID:??? AAS
5.005_03 と 5.8.0 の両方でマジメにチェック & 縮め。

#!/usr/local/bin/perl
use CGI':all';sub e{my@e;for(0..63){@x=(@{[qw(+ - * /)]}[$_&3,$_>>2
2(5): マリモーマ ◆jbBCmetwgw [] 02/11/01 18:28 ID:HKLNcbVm(1/2) AAS
２ＧＥＴ　　７行だけなら　何もできない罠
&3,$_>>4
4(5): nobodyさん [] 02/11/01 18:39 ID:oU5vKkbM(1) AAS
とりあえず7行でカウンタを作ろう
&3],
@n,param n);for$t(qw/(304)1(526) ((304)15)26 30(41(526)) 30((415)26)
(30(415))26/){$_=$t;s/(\d)/$x[$1]/g;10-eval or$r?push@e,$_.br:put("$n:$_\n"),$c
&&return}}@e}($r=$ENV{REMOTE_ADDR})?put(header,start_html(-title=>7410),
startform(0,script_name),p(scrolling_list(-values=>[0..9],name,n,size,10)x4,
submit),endform,p(e),end_html):do{$$_=1for"@ARGV"=~/\w/g;$n=$_,$h{"@{[sort@n=
/./g]}"}++&&$o||$z&&/0/||$d&&4>keys%{{map{$_,1}@n}}or e for'0019'..'9999'}
上下前次1-新書関写板覧索設栞歴
あと 283 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.014s