TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
PowerShell -Part 3
2 part forth
【統計分析】機械学習・データマイニング25
七行プログラミング part6
c、Java、pythonを難易度でランク付けして
Silverlight登場で.NET使い大勝利!!! Part2
Perlについての質問箱 64箱目
次世代言語12 Go Rust Swift Kotlin TypeScript
C++相談室 part147
C言語なら俺に聞け 151
60 :
>>48 Perl5、iteratorじゃなくpermutationを列挙する方法で書いてみた。これなら題意に合うはず。

sub permu {
 my ($l, $p, @r) = @_;
 defined $p ? map {[$p, @$_]} permu([], @$l, @r) : ([])
 ,
 @r ? permu([@$l, $p], @r) : ()
}

#$v = '123';
#$v = '321';
$v = '5672391';

@a = split '', $v;
@b = grep {$_ > $v} map{join('', @$_)} permu [], @a;

print (@b ? "@b" : $v);


実行結果
https://ideone.com/1Lft75

少しメモリを食ってるだろうけど0.04sで解けた

【関数】Erlang Part 2【エリクソン】
C++相談室 part135
ふらっと C#,C♯,C#(初心者用) Part139
ネットワークプログラミング雑談
Lisp Scheme Part41
●●●●TCL/TKなら俺に聞け 4●●●●
Ruby 初心者スレッド Part 63
GPGPU#5
+ JavaScript の質問用スレッド vol.125 +
■特許庁新システムを作る■
--------------------
HR/HM来日公演情報63
AAセラピー診療所 2
千葉県内の1パチを語るスレ ★1
新潟市長選スレ
ファミリーレストラン ジョイフル 50軒目
サブ3h15m(3.25h)を目指すスレ
【選挙】「投票所で性別の確認やめて」トランスジェンダーの人たちが不安を感じることなく選挙で投票できるよう住民が要請。宮城県女川町
【育児放棄ウマヅラハギ】越馬千春 アンチスレpart15【自分ファースト虚言加工繁殖馬】
史上初!国税庁「確定申告を4/16まで延長します、理由は・・・」
なんJ PRCN部★49
【芸能】平祐奈『まだ結婚できない男』の“棒演技”に酷評「子役の方がウマかった」
【ニコ生】 DQRTAスレ52 【twitch/Youtube】
【感染管理の専門家から】「心配かもしれませんが、感染者の80%は軽症で、1週間ほど風邪のような症状が続いて治ってしまう」
091◆TOKYO MX1 総合実況 376
【2004年生まれ】芦田愛菜★176
【HONDA】HONDA e 【EV】
【FEH】ファイアーエムブレムヒーローズpart5269
MX・tvk・テレ玉・チバ・群馬・とちぎ実況 ★ 64168
きりたんぽ
◆芸スポ+スレッド作成依頼スレ★1123
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼