±Û¾´ÀÌ: 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´Â ³Ê¹« º¸±â Èûµé´õ±º¿ä...
-- ±ô