±Û¾´ÀÌ: mengpa (½ÃƼÇåÅÍ)
³¯ Â¥: Tue Mar 24 02:12:01 1998
Á¦ ¸ñ: Âü... ¼÷Á¦¿¡ ´ëÇØ¼­


Á¦ÀÏ Ã¹¹®Á¦, distinct partµé·Î ÀÌ·ç¾îÁø partitionÀ» ±¸ÇÏ´Â ¹®Á¦¿¡¼­¿ä,

¸Ó¸®¸¦ ½á¼­(?) Á¤È®ÇÑ ¾Ë°í¸®ÁòÀ» »ý°¢Çس»´Â °ÍÀÎÁö,
¾Æ´Ï¸é partitionµéÀ» ¸ðµÎ generateÇØ¼­ ±× Áß¿¡¼­ distinct ¿©ºÎ¸¦ checkÇÏ´Â
¹«½ÄÇÑ ¹æ¹ýÀ» ½áµµ µÇ´ÂÁö...?

Ȥ½Ã, generating functionÀ¸·Îµµ °¡´ÉÇÑÁö...? (°¹¼ö¸¸ ¼¼´Ï±î ¾ÈµÇ³ª?)

Âü°í·Î, Àú´Â

distpart:= proc(n)
# before: ¹æ±ÝÀü¿¡ ¸¸µç partition,
after:= nextpartition(before, n);
if nops(after) = nops({op(after)}) then print(after) fi;
# ...
end;

ó·³ Ç߰ŵç¿ä? Áï list¸¦ setÀ¸·Î ¹Ù²ã¼­ °¹¼ö¸¦ ºñ±³ÇÑ °ÅÁÒ.
±×·¯¸é partition ±¸ÇÏ´Â ¾Ë°í¸®Áò°ú °ÅÀÇ ´Ù¸¦ °ÍÀÌ ¾ø±º¿ä.

±×·¡µµ µÉ±î¿ä? ¾Æ´Ï¸é ±ò²ûÇÑ .. ¾Ë°í¸®ÁòÀÌ Á¸Àç?
»ç½Ç, partition ±¸ÇÏ´Â ¾Ë°í¸®ÁòÀ» ±¸ÇöÇÏ´Â °Íµµ Á¦¹ý °í»ýÇßÁÒ.
Ã¥ÀÇ code´Â ³Ê¹« º¸±â Èûµé´õ±º¿ä...

-- ±ô

¹øÀ¸·Î     óÀ½±Û¸¶Áö¸·±Û

ÀÌÀü ±Û ´ÙÀ½ ±Û ¸ñ·Ï È­¸é º¸µå ¸ñ·Ï