Category : Miscellaneous Language Source Code
Archive   : APL100.ZIP
Filename : PARTFNS.IWS
p² s x sÒ s
â sÀ Ðò s¨ a ÈÚ sf¸
sÐ6 a À s°* a ðê sfà> søf a èN sØ^ a èú sfn s \ l ~ k l øº l Ðò¾ a ÈÀ¹ l X²À a À t ¸|N s ÀP l p¦ t h* l > t x¬ l ° l l è X l 0 f X s @º a a P: f (O s Hd s @Ĺ l ø6¼ a 0 о t μ l @F¾ l Xb s $ sqp2 sq`øÿ ¨Á a Ø ¸ ¾ l È ²¹ t P¼½ t ¼¸ a Èj¿ l °½ l ²¾ a (î¾ l D l ÈìÀ s üº a ¸0¾ `hÀ l À(Á X¨Á PPn¿ a øø¶ a ¨» a È `È ¨h@¿ a Ø H ¼¿ a à» l 0 àð t ` s @¢ l PÐ a H® t 8´ l XØ a hà t x® l pæ a î t Ò l ò a ú t a ¨ t Øô l ° a È t À a ø t Ð l à< t ¸ l ð~ t l ¶ t " l °& l + s s ` s (Þ t Hä a 8ò t @ø a ` t Pì l X a x t l p" a ¨* t l 0 t l L t h l ¸d t °0 l 4 l È¢ s øÈ s Ø° l ¨ª l àÄ s 0Ü l ¸¡ l Ò l Ö a t l x f l F f ( æ l @ ú t 8 f l h j l ` B l x t | a <¤ l ÐN f P t f Pv¢ t ü s a t l a ° t ¨ l À ¦ t ¸ l ø l x ð l Ø p s 0 ` t à a 0 t d f °ê¡ l $ s : a B t H a ðP t (~ a t 8 l @Ì l Hâ l `ö t X l ¨ l h4 . s pB = s P l Àn§ f
¢ l $¢ l H d s P a ð æ¡ l À¬ f þ¡ f èz¡ s ȸ a àÀ t Ð X a Z t èÆ l øâ t ØV l $¡ t ` l È d l ¸n¡ l p 8¢ t È°¡ a 0J£ t pP£ a X6£ t H(£ a 80£ t `|¢ l (<£ l h¨¢ l À¢ t xX£ l Ð\£ l þ¢ l Àþ£ t ¨L¤ l 0¦ l @£ s @\¤ l X 0¤ f ¤¡ f ¦ l ظ¡ s àp£ a èÌ¡ t x£ a ðÒ¡ t øØ¡ a à¡ t £ l ´£ a ¼£ t £ a hÖ£ a 0J¥ t 8P¥ a ÈX¥ t H`¤ l Pº¤ l `Τ t Ò£ l xê¤ t pÞ£ l °â£ l &¥ l r¦ f À|¦ s (6¥ s XÊ£ a X:¦ l ª t ò£ f ¨4© t ठs Ð^¥ a Øf¥ t øl¥ a è¤ t ð¤ a &¤ t t¥ l Î¥ l ⥠t °,¤ l þ¥ t (§ a 8¦§ t H¦ l @¬§ l pº§ l PÚ¦ t ô¦ a ðJ¦ t h¨ a ¨ t xÒ§ a Ú§ t ü¦ l § t ৠl àä§ l xZ§ l `:© l X@ª a § s ж¨ a ( « t ؾ¨ t èĨ a `ø§ f p̨ t øP¦ s d¦ a l¦ t ¨ l 4¨ l ÐF¨ t pÖ¬ f 0ö® t È« a ¬ a P
« a °4ª f 0« t Hª s h>© a F© t Ò¨ a lª t ^ª a xfª t ¨L© l Ðrª l àÚ¨ l °© t ¸¤© a ଩ t È|§ a ¸§ t ب a ð¨ t 販 l Ò© t ø¨ l À¢¨ l ª l H$ª l XÞª l 8î« s P8¬ t 0&« l 8P« t @j« a Hr« t hx« a `>¬ t Ðîª a xD¬ t p« l « t J¬ l ÀN¬ l Þ« l x t a ° ¬ t È*¬ t ¨¬ l 𾬠a Ø^¬ f 0¬ a @öª s j¬ a èò¨ t ðø¨ l ø© a © t &© a ¸.© t r¬ l Ȭ t X® a @ª t 8î¬ l P t H° l ´ l L l Èl² l ø± t p l ଠt a t Ä f 0æ¬ a ¨`® s ¸Ð a °t® t Àz® l ØØ a Ю t ¸¶¬ a è ® t àà l ø
® t ¦® l Ƭ l H® l ª® l Ô® t (î® a (¤ t (° a @$° t Xü® l `>° a H*° t P0° a 88° t h0¯ l F° l pJ¯ t xd¯ a l¯ t ° a ° t Z° a °b° t ¨r¯ l À¯ t ¸h° l l° l ÐЯ l ² t °ä¯ f (*³ a è ° s ° t ø¸° a À° t ° f ÀÆ° a h\ s è° a â´ t δ l P³ a À l 0³ t X² f Ø$³ t h(² s P² a p<² t xB² a `J² t 2± l j± l XX² l ± t ¨± a Т± t ¸ò¯ a àú¯ t Èΰ a àÖ° t ب± l ðȱ t àÜ° l 𤰠l H² l ± l ± l ʲ l Ò´ l Xd´ l 0Ƴ s H2³ a 8ܳ t @â³ a Xê³ t `:³ l Àè² a pð³ t h`³ l x³ t xö³ l Èú³ l ¶³ l ¸Â¶ t ж t PÞ² f ¨è´ l ¸µ t ½ a 0Tµ a èð² s Ð
´ a ø´ t ô° a à° t ð³ a @³ t ´ l Øæ° l `ü° l B´ t \´ a (T¶ a h\¶ t 8\µ l @¬µ t PƵ a ´ t pε a Àt´ t д a b¶ t xÖµ l öµ t øh¶ l ئ´ l ¨2¶ l °Ö¶ a >¶ s Þ¶ t ȶ a `z´ f º¶ a H´ s ಴ a 躴 t ðÀ´ a (È´ t l¶ l ¶ a ¦¶ t ¬¶ a È´¶ t °j½ a ¨ pN¹ l ø¸ è8À l p è hâ· s pö· a xþ· t À¸ l · a · t · a °$· t °ä¶ a Ð$¸ t ¸*· l ÈZ· t ¨ ¸ l à· t Ø*¸ l è.¸ l `Ò· l ð<¸ s J¸ s · s Ð2¼ l X à8¸ s H Á l è¼ a Xz¸ a Èä» a 0v¸ l V¹ l ¸¿ l ¸ l è Xè̹ l 0°¾ a 0 8 @` hð¹ ðè P8à» l Xì¶ l 8ò½ f h (à è p 0ð Èè ʸ ø0` ( P X¨ ð@j¸ f À t À À ØH¦¸ f J» a `²¸ f ø½ a ` 8Ð H ظº ¸HR¹ l x¬¾ t Ø ÈÀ l 0 ¹ a
Á a ¨ a xº à .¼ l ø<¿ l è ¨ Ð` 0ð>¾ a (¼ l °À l 8 @ À ø ®º a ¾ l 8¾ ` xj¾ l ह l ÈÐò¶ t øÿ 8¬À t ( Pàʾ t º¾ a Ð @²¸ Ø X¸ t ð (¾ a ð8¾ t ØúÁ a P ðà ` t x¨¹ l P è `¸Ê½ l Ð*Á f pÒ¼ a HBÀ t Hº a P Àp X hȹ l dº a (ºÀ s ¸þÁ ¸0¼¹ l °@ a P¬¹ l (þÀ l h¸¹ l HZ¹ a Ø (X´½ a ð¹ ¨( 0úÀ l Ø^Á l ðbÁ a À й a ø¬Á l °Á a x¾ a 8 pÂÁ l ÀÆÁ a 𨠹STOP ¸x ¹CR Ð@ ¹FX àH ¹NL 0P ¹EX 8È ¹NC @¸ ¹DL øÐ ¹ID ¹WA ð ¹TS ø ¹LC ( ¹AV Èp0 ¹LX ¨à ¹PW n O ° ¹RL P(À ¹CT n : n X0Ø ¹HC 8è ¹PP n n pXÀ ¹IO Hh`Àø ð È ¸¨À ¸ ¸ `h
¹TX H ¹MC h ¹TRACE à DESCRIBE »x ¹Ec A A the partition functions. They all take a boolean vector left n n ÿÿxp` ¸¢ \ 8 0 [ ( ~ H) / + \ ] ¢ @n n P 1n h 1 ¢ H\ ( ¡ ) - ¡ Ðn ¸ 1 𠸢 HÀ; ; P øèØÈ x`H0¸ H ° EXTENDPARTS A Z Øø FIRSTONES ¢ ( ( ¶ / ¼ ) + + / ~ H) ¼ X [ ( ~ H) / ³ ¶ / ¼ H] ¢ pn ÿÿ ¸1n 1 n ¨ 1R ¢ ( , À) / ³ °+ ¶ / ¼ ½ > ½ EG: 1 0 1 0 0 1 EXTENDPARTS 1 1 1 0 0 0 ¢£ 1 0 1 0 0 1 0 0 0½ 4 ½ EACH 1 IN