hushaowu 发表于 2005-8-30 19:10:44

人 狗 鸡 米

<FONT color=#cc3333>t = {{1, 1, 1, 1}, {0, 0, 0, 0}, {1, 1, 1, 0}, {0, 0, 0, 1}, {1, 1, 0, 1}, {0,<BR>         0, 1, 0}, {1, 0, 1, 1}, {0, 1, 0, 0}, {1, 0, 1, 0}, {0, 1, 0, 1}};<BR>tt = {{1, 0, 0, 0}, {1, 0, 1, 0}, {1, 1, 0, 0}, {1, 0, 0, 1}};<BR>tb = {1, 1, 1, 1};<BR>te = {0, 0, 0, 0};<BR>p = {};<BR>tx = tb;<BR>AppendTo;<BR>For];<BR>    For] == 2, tx[] = 0]];<BR>    If &amp;&amp; (! MemberQ), Print]]; tb = tx; <BR>      AppendTo] ];<BR><BR>If]</FONT>
页: [1]
查看完整版本: 人 狗 鸡 米