過去の桐井戸端ＢＢＳ　（桐ver.８）

15380	目的数字をいくつかの倍数数字で割振りしたい	masa	2002/03/07-15:40
すみません。またよろしくお願いします。 表Ａ項目［1］の値の数字を、表Ｂ項目［2］〜［14］のいくつかの値の倍数数字で分割したいのですが、 どうしたら出来るでしょうか？ 例 表Ａ ［１］ 127 262 149 　・ 　・ 　・　 表Ｂ ［２］［３］［４］［５］［６］［７］〜［１４］ 　11　　13　　21　　22　　31　　35 　　 求めたい物 127＝［３］×2　+［５］×3　+［７］×1 262＝［２］×3　+［６］×4　+［７］×3 149＝［４］×5　+［５］×2 何種類か答えがあってもどれか１つイコールになった時点でＯＫです。 繰り返しの式を使うような気がしますが、かなりの量になってしまうのでしょうか？
15394	Re:目的数字の割振りについて	masa	2002/03/08-11:18
記事番号15380へのコメント 仮に各々の数字が１０倍までと仮定して（11×1、11×2、11×3〜11×10、〜13×10） それぞれを1つの項目に入れて検索させようと考えたら、 1項目値×１０種類で、全項目13個を足した時、合う場合で １０種類×１０種類×１０種類×・・計13回と 12個の項目合計で合う場合で １０種類×１０種類×１０種類×・・計12回と 11個の項目合計で合う場合で １０種類×１０種類×１０種類×・・計11回と 10個の項目合計で合う場合で １０種類×１０種類×１０種類×・・計10回と 9個の項目合計で合う場合で １０種類×１０種類×１０種類×・・計9回と ・ ・ ・ ・ と考えたら、とんでもないデータ量になってしまいました。 スーパーコンピューター並みの（大げさ？）処理が必要？ 暗号解読と同じくらい難しそうです？ カンを頼りに割振るしかないですね・・・・
15488	Re:目的数字の割振りについて	ひろ君	2002/03/17-17:05
記事番号15380へのコメント masaさん 初めまして　 最近ここを知ってROMしてました。これからよろしくお願いします。 繰り返しでは大変そうで、桐でも「再帰呼び出し？」ができるのではと作ってみました。 代入文が長くなりそうだったのですべて変数内で操作しています。 無駄な部分もあると思いますが「再帰呼び出し」は２０年くらい前にパスカルでやったことがあるだけで しかも桐では初めてなのでゆるしてください。 できなかったときは　「&できない=1」になります。 ところでこれは何に使うのですか。よければ教えてください。 ”＊＊＊.cmd” 変数宣言　固有,整数{&合計=127, &N＝７,&できない=1} 変数宣言　固有,整数{&被乗数[&N]={11,13,21,22,31,35}} 変数宣言　固有,整数{&乗数[&N]= {0,0,0,0,0,0,0}} 手続き実行　計算(&合計) 変数管理　固有 終了 手続き定義開始　計算(整数　&合計) 　手続き実行　再帰呼び出し２(&合計,１,&できない) 　条件　(&できない)　手続き実行　再帰呼び出し１(&合計, 1, 0, &できない) 手続き定義終了 手続き定義開始　再帰呼び出し１(参照 整数 &合計,整数 &L,整数 &M,参照 整数 &できない) 　条件　(&N > &L)　手続き実行　再帰呼び出し１(&合計,&L+1,&M,&できない) 　分岐　(.NOT &できない)　呼び出し１終了 　代入　&合計=&合計-&被乗数[&L], &乗数[&L]=&乗数[&L]+1 　条件　(&合計 > 0)　手続き実行　再帰呼び出し１(&合計,&L,&M+1,&できない) 　分岐　(.NOT &できない)　呼び出し１終了 　&合計=&合計+&被乗数[&L], &乗数[&L]=&乗数[&L]-1 　手続き実行　再帰呼び出し２(&合計,1,&できない) 　名札　呼び出し１終了 手続き定義終了 手続き定義開始　再帰呼び出し２(整数 &合計,整数 &K,参照 整数 &できない) 　条件　(&K<&N)　手続き実行　再帰呼び出し２(&合計, &K+1, &できない) 　分岐　(.NOT &できない)　呼び出し２終了 　&できない=#MOD(&合計,&被乗数[&K]) 　条件　(.NOT &できない)　&乗数[&K]=#INT(&合計/&被乗数[&K]) 　名札　呼び出し２終了 手続き定義終了

戻る