- プログラミングのお題スレ Part15
685 ：デフォルトの名無しさん[sage]：2019/10/05(土) 15:19:46.96 ID:6iFRuM3K - >>629 bash 4.3.42(3)
n=10000
eval "a=('' '' {2..$n})"
for i in ${a[@]}; do
if [ ${a[$i]} ]; then
echo $i
for ((j=2*$i; j<=$n; j+=$i)); do
unset a[$j]
done
fi
done
実行結果
$ bash 15_629_prime.sh
2
3
5
7
…
9941
9949
9967
9973
|
- プログラミングのお題スレ Part15
686 ：デフォルトの名無しさん[sage]：2019/10/05(土) 15:21:16.04 ID:6iFRuM3K - >>685 実行結果、貼りそこなって変な改行は入ってた…orz 訂正
実行結果
$ bash 15_629_prime.sh
2
3
5
7
…
9941
9949
9967
9973
|
- プログラミングのお題スレ Part15
687 ：デフォルトの名無しさん[sage]：2019/10/05(土) 15:31:29.76 ID:6iFRuM3K - >>686 いや、for ((j=$i*$i; j<=$n; j+=$i)); do だよ間違えた、25%早くなる
n=10000
eval "a=('' '' {2..$n})"
for i in ${a[@]}; do
if [[ ${a[$i]} ]]; then
echo $i
for ((j=$i*$i; j<=$n; j+=$i)); do
unset a[$j]
done
fi
done
|
- プログラミングのお題スレ Part15
688 ：デフォルトの名無しさん[sage]：2019/10/05(土) 16:09:49.40 ID:6iFRuM3K - >>629 >>687の実行結果
https://ideone.com/3RCc5k
|
- プログラミングのお題スレ Part15
689 ：デフォルトの名無しさん[sage]：2019/10/05(土) 17:13:25.01 ID:6iFRuM3K - >>687
eval "a=('' '' {2..$n})"
for i in ${a[@]}; do
if [[ ${a[$i]} ]]; then
この書き方、a[]の最初の0,1番目の要素に空文字を設定しておいて
それを配列のインデックスとして使い、あまりいい書き方じゃないと気がついた
動いているんで、あせって直さないでおくけど ｺﾞﾒﾝね〜
|
- プログラミングのお題スレ Part15
694 ：デフォルトの名無しさん[sage]：2019/10/05(土) 23:11:05.60 ID:6iFRuM3K - >>667 Perl5
$in = '<div><p><a></a></p></div><span><p></p></span>';
use XML::Simple;
$xml = new XML::Simple->XMLin('<document>'.$in.'</document>');
use Data::Dumper;
$Data::Dumper::Terse = 1;
print Dumper $xml;
実行結果
~ $ perl 15_667_Simple.pl
{
'div' => {
'p' => {
'a' => {}
}
},
'span' => {
'p' => {}
}
}
|