前幾天看到了一個問題 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 將1~24這24個正整數分成三組，每組8個數字，且8個數字合為100 請問有幾種分法 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 覺得滿有趣的，所以我就寫了一下 我寫了50行，程式在我的AMD 1.5G上跑了30秒 我想不會有人比我快了~~~~~~ 所以我來挑戰一下，看有沒有人寫得比我快

goodfriend 您好： 不曉得有沒有限定方法？ 發表人 - richtop 於 2004/11/04 00:33:14

不要直接印出答案就行了    這是我寫的    

 
**********************************************    program Project1;    uses
  SysUtils;
const
  max_int:integer=24;
  max_depth:integer=8;
  mysum:integer=100;
var
  count:integer=0;
  count2:integer=0;
  num_array:array[0..20000] of integer;
procedure xxxyyy(depth,cur_int,sum,num:integer);
var temp:integer;
begin
if (cur_int>max_int) then
  exit;
if (depth>max_depth) then
  exit;
if (depth=max_depth) then
  begin
  if (sum cur_int = mysum) then
    begin
    temp:=num or ( 1 shl (cur_int -1));
    num_array[count]:=temp;
    count:=count 1;
    exit;
    end;
  end;
xxxyyy(depth 1,cur_int 1,sum cur_int,num or ( 1 shl (cur_int -1)));
xxxyyy(depth  ,cur_int 1,sum        ,num);
end;    var i,j,a,temp,bitnum:integer;    begin
xxxyyy(1,1,0,0);
for i:=0 to count do
for j:=i 1 to count do
  begin
  temp:=num_array[i] or num_array[j];
  bitnum:=0;
  for a:=23 downto 0 do
    if (temp and (1 shl a))>1 then
      bitnum:=bitnum 1;
  if (bitnum=16) then
     count2:=count2 1;
  end;
writeln(count2);
sleep(2000);
end.
**********************************************

發表人 - goodfriend 於 2004/11/04 02:01:10

引言:我想不會有人比我快了~~~~~~ 所以我來挑戰一下，看有沒有人寫得比我快

有何獎賞? ==取之於斯,用之於斯==

給你得一分 但是不可以直接印出答案 而且程式最好有擴充性 和能印出全部的解 其實我想求的是 「有沒有比我更好的演算法和寫code技巧」 即然我求的是演算法，那就是希望可以解決類似的問題 所以只要你的演算法比我好，或是寫code技巧讓我耳目一新 都是得分者

http://delphi.ktop.com.tw/topic.php?topic_id=59245 快快快 我等著你們的挑戰呢 我後來又想到一個更讚的作法呢~~~~~~

這是離散數學的題目以前也學過 ㄧ時找不到演算法  有興趣的話你可以去找找 如果我有找到 我也會

------
~ 勿在浮沙上面築高塔 ~

可以先知會一下答案有幾組嗎? 可以用查表法嗎? 那可能快很多 ^_^ 練習! 練習! 再練習!

------
嘿嘿嘿

哇～真多組解， 有1025113組呢！

引言: 哇～真多組解， 有1025113組呢！

請問一下，你的程式跑多快啊?

goodfriend 你好,   很有趣的題目, 值得一試 ...   你的程式看起來是使用 recursive 解題,   所以應該比 iterative 的方式慢的多,   因此, 應該有跑的更快的寫法    <><>*真實的事物最美, 簡單的道理最好, 我能體會的 太少*

------
不要忘記呼吸，不要忘記編程！ ∩__∩

引言: goodfriend 你好, 很有趣的題目, 值得一試 ... 你的程式看起來是使用 recursive 解題, 所以應該比 iterative 的方式慢的多, 因此, 應該有跑的更快的寫法 <><>*真實的事物最美, 簡單的道理最好, 我能體會的 太少*

^_^~~~並不是所有的recursive都比iterative慢 尤其是一些用recursive很好解但是用iterative很難解的問題 這個問題是一個大陸人提出來的問題，他們老師出了這個題目 剛好我看到了，我覺得蠻有趣的 於是就幫他寫了出來 不過我一直覺得我的做法並不完美 應該還有更快的方法 所以來這挑戰一下~~~~~