WSH(・∀・)ｽﾚｯﾄﾞ! ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
487:デフォルトの名無しさん 06/01/14 18:24:26 >>475 素直に組めばこんなもんかな Option Explicit Permutation 9 Private Sub Permutation(N) WScript.Stdout.WriteLine "N = " & CStr(N) Dim A(): ReDim A(N - 1) Dim I: For I = 0 To N - 1: A(I) = I + 1: Next PermutationSub A, 0, N - 1 End Sub Private Sub PermutationSub(A, N, M) If N <= M Then Dim I For I = N To M Swap A(N), A(I):PermutationSub A, N + 1, M: Swap A(N), A(I) Next Else WScript.Stdout.WriteLine Join(A, " ") End If End Sub Private Sub Swap(X, Y) Dim W: W = X: X = Y: Y = W End Sub うちの環境だと、N が 568 以上だとスタックオーバーフローするけどな。 488:デフォルトの名無しさん 06/01/17 09:04:37 選択した文字を右クリックメニューからＷｅｂ検索するものを作る事は可能ですか。ＷＳＨで 489:デフォルトの名無しさん 06/01/17 09:21:14 > 選択した文字を右クリックメニューから どこで選択した文字を､何の右クリックメニューから検索したいのか知らないけど 選択した文字列をスクリプトで取得出来るならどうにでもなる。 ブラウザ上の右クリックとかなら簡単に出来るし。(具体的な方法はググれ)
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4331日前に更新/212 KB
担当:undef