HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2010
0330
s½Å¤¤9²ò·è


s

¥ê¥ó¥¯

2010/3/30(Tue) 11:55:24|NO.31670

°Ê²¼¤Î¥½¡¼¥¹¤ò¼Â¹Ô¤¹¤ë¤È¡¢CPU¤Î»ÈÍÑΨ¤¬9³ä¤òĶ¤¨¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¼Â¹Ô®ÅÙ¤ò0¡Á52ms/4 ordersÄøÅ٤ˤ·¤¿¤Þ¤Þ¤Ç¡¢Æ°ºî¤ò·Ú¤¯¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¤«¡£

#include "d3m.hsp" #module #defcfunc IsPrimeAB int A,int B f=0 po=4 repeat B-A+1,A if IsPrimeC(cnt)=1:f=1:break if po=cnt:wait 1:po=po+4 loop return f #defcfunc IsPrimeC int A i=2:while i*i <= A if(A\i = 0):return 0 i++ wend return 1 #global mes "n^2¤È(n+1)^2¤Î´Ö¤ËÁÇ¿ô¤¬Â¸ºß¤¹¤ë¤«Ä´ºº¤¹¤ë" mes "Ä´ºº³«»Ï" C=4097072 D=C+4 dim Nam,3 *Enter Nam(0) = d3timer() C++ A=C*C:B=(C+1)*(C+1) if A > B:A = A xor B:B = A xor B:A = A xor B if IsPrimeAB(A,B)=1{ if C = D{ color 255,255,255 boxf 30,50 color 0,0,0 pos 30,50 mes "n="+C+" is OK" Nam(1) = d3timer() Nam(3)=Nam(1)-Nam(0) mes ""+Nam(3)+"ms/4 orders ¤Ç¼Â¹ÔÃæ" wait 1 D=D+4} goto *Enter }else{ mes "n="+C+" is not OK" mes ""+A+"¡Á"+B+"¤Î´Ö¤ËÁÇ¿ô¤Ï¤Ê¤¤" goto *endn } *endn stop



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


maa

¥ê¥ó¥¯

2010/3/30(Tue) 19:59:40|NO.31672

¤¶¤Ã¤È¸«¤¿¤È¤³¤í¡¢Ï¢Â³¤·¤ÆÄ´¤Ù¤ë¤Ë¤ÏIsPrimeC¤Ë̵Â̤¬Â¿¤¤µ¤¤¬¤·¤Þ¤¹¡£
ÁÇ¿ô¤Î°ìÍ÷¤òºî¤Ã¤Æ¹Ô¤¯´¶¤¸¤Ë¤¹¤ë¤Î¤Ï¤É¤¦¤Ç¤¹¤«¡©
½¤Àµ¤·¤¿¤Ä¤¤¤Ç¤Ëwait¤ò¤½¤³¤Ë²Ã¤¨¤ì¤ÐCPU¤Î»ÈÍÑΨ¤â²¼¤¬¤ë¤È»×¤¤¤Þ¤¹¡£



ÌÚ¼

¥ê¥ó¥¯

2010/3/30(Tue) 20:22:02|NO.31674

¡¡¤ª¤½¤é¤¯¡¢¼¡¤Î£²¤Ä¤ÎÌäÂêÅÀ¤Î¤»¤¤¤À¤È»×¤ï¤ì¤Þ¤¹¡£
­¡¡¤µ¿»÷̵¸Â¥ë¡¼¥×¤Ëwait¤¬Æþ¤Ã¤Æ¤¤¤Ê¤¤
­¢¡¤ÁÇ¿ô¤Îµá¤áÊý¤Ë̵Â̤¬¤¢¤ë

¡ú­¡
¡¡¤Þ¤º¡¢­¡¤Ç¤¹¤¬

#defcfunc IsPrimeAB int A,int B f=0 po=4 repeat B-A+1,A if IsPrimeC(cnt)=1:f=1:break if po=cnt:wait 1:po=po+4 loop return f
¡¡¤³¤ÎÉôʬ¤Î¥ë¡¼¥×¤Ëwait¤¬Æþ¤Ã¤Æ¤¤¤Þ¤»¤ó¡£³Î¤«¤ËÍ­¸Â¸Ä¤Î¥ë¡¼¥×¤Ê¤Î¤Ç¤¹¤¬¡¢Ìó£±£¶Ãû¤â
·«¤êÊÖ¤¹¤ï¤±¤Ç¤¹¤«¤éwait¤òÆþ¤ì¤Ê¤¤¤ÈCPU¥Ñ¥ï¡¼¤ò¿©¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¡¡´Î¿´¤Î²ò·èË¡¤Ç¤¹¤¬¡¢¤µ¤¹¤¬¤ËËè¥ë¡¼¥×Ëè¤Ëwait¤ò¼è¤ë¤È»þ´Ö¤ò¿©¤¤²á¤®¤Þ¤¹¤Î¤Ç
k+ : if k=128 : k=0 : wait 1

¤Î¤è¤¦¤Ê¥¹¥¯¥ê¥×¥È¤ò¥ë¡¼¥×Ãæ¤ËÆþ¤ì¤Æ¤ä¤ì¤Ð²ò·è¤¹¤ë¤È»×¤ï¤ì¤Þ¤¹¡£ ¡ú­¢ ¡¡­¢¤Ç¤¹¤¬¡¢s¤µ¤ó¤Ï¤¢¤ë¿ô£î¤¬ÁÇ¿ô¤Ç¤¢¤ë¤«¤òÄ´¤Ù¤ë°Ù¤Ë¡¢¢å£î°Ê²¼¤Î¼«Á³¿ôÁ´¤Æ¤Î;¤ê¤ò µá¤á¤Æ¤¤¤Þ¤¹¡£¤·¤«¤·¡¢¤³¤ì¤Ï¾¯¤·ÌµÂ̤¬Â¿¤¤¤Ç¤¹¡£ ¡¡¤¢¤ë¿ô£î¤¬ÁÇ¿ô¤Ç¤¢¤ë¾ò·ï¤Ï¡¢
¡Ø¢å£î°Ê²¼¤ÎÁÇ¿ôÁ´¤Æ¤Ç³ä¤êÀÚ¤ì¤Ê¤¤¡Ù
»ö¤Ç¤¹¡£
¡¡Î㤨¤Ð¡¢£î¤¬36¤Ç³ä¤êÀÚ¤ì¤ì¤Ð¡¢³Î¤«¤ËÈóÁÇ¿ô¤Ç¤¢¤ë»ö¤¬Ê¬¤«¤ê¤Þ¤¹¡£¤±¤ì¤É¤â¡¢36¤Ç³ä¤ê
ÀÚ¤ì¤ë¿ô¤Ê¤é¡¢¤½¤Î°ø¿ô¤Ç¤¢¤ë18¤Ç¤â¡¢¤¢¤ë¤¤¤Ï12¤Ç¤â³ä¤êÀÚ¤ì¤ë¤Ï¤º¤Ç¤¹¡£¹¹¤Ë¸À¤¨¤Ð9¤ä
4¤Ç¤â¡¢ºÇ½ªÅª¤Ë¤Ï36¤ÎÁÇ°ø¿ô¤Ç¤¢¤ë2¤ä3¤Î¤¤¤º¤ì¤«¤Ç³ä¤êÀڤ줿»þÅÀ¤Ç¡¢36¤¬ÈóÁÇ¿ô¤Ç¤¢¤ë¤«
Èݤ«¤¬Ê¬¤«¤ê¤Þ¤¹¡£

¡¡¤³¤ì¤òÍøÍѤ¹¤ì¤Ð¡¢·×»»Î̤¬ÂçÉý¤Ë¸º¤ê¤Þ¤¹¡£°ìÎã¤òµó¤²¤ì¤Ð¡¢100¡Á10000¤Þ¤Ç¤Î´Ö¤Ë¸ºß
¤¹¤ëÁÇ¿ô¤òÄ´¤Ù¤ë¾ì¹ç¡¢s¤µ¤ó¤Î·×»»¤Ç¤Ï¼«Á³¿ô°ì¤ÄÅö¤¿¤ê10¡Á100²ó;¤ê¤òµá¤á¤ëɬÍפ¬¤¢¤ê
¤Þ¤¹¡£¤·¤«¤·¡¢Í½(Ž±Ž×Ž¶Ž¼ŽÞ)¤á100°Ê²¼¤ÎÁÇ¿ô¤òÄ´¤Ù¤Æ¤ª¤¤¤Æ¡¢ÁÇ¿ô¤Î;¤ê¤Î¤ß¤ÇÁÇ¿ô¤Ç¤¢¤ë¤«
Èݤ«¤òµá¤á¤ë·×»»ÊýË¡¤Ê¤é¤Ð¡¢¼«Á³¿ô°ì¤ÄÅö¤¿¤ê4¡Á26²ó;¤ê¤òµá¤á¤Æ¤ä¤ë¤À¤±¤ÇºÑ¤ß¤Þ¤¹¡£
¡¡Î¾¼Ô¤Îº¹¤ÏÄ´¤Ù¤ë¿ô¤Î·å¤¬Â礭¤¯¤Ê¤ì¤Ð¤Ê¤ë¤Û¤É³ÈÂ礷¤Þ¤¹¡£Âç¿ô¤ÎÁÇ¿ô¥Á¥§¥Ã¥¯¤ò¤¹¤ë
¤Ê¤é¡¢¤³¤Á¤é¤ÎÊý¤¬Îɤ¤¤È»×¤¤¤Þ¤¹¡£

¡¡¤Ç¡¢´Î¿´¤Î¥½¡¼¥¹¤Ç¤¹¤¬¡¢ÌÚ¼¤ÏÏÀÍý±é»»»Ò´ØÏ¢¤Î½èÍýǽÎϤ¬³§Ìµ¤Ê¤Î¤Çs¤µ¤ó¤Î¥½¡¼¥¹¤Ë
Ŭ¹ç¤·¤¿¥¹¥¯¥ê¥×¥È¤Ï½ñ¤±¤Þ¤»¤ó¤Ç¤·¤¿¡£¤¬¡¢°ì±þÁ´¤¯¤ÎÊÌʪ¤È¤·¤Æ¤Ïºî¤ì¤¿¤Î¤Ç°Ê²¼¤ËŽ¤ê
¤Þ¤¹¡£

notesel p : noteload "ÁÇ¿ô(1¡Á1000000).txt";¥Î¡¼¥È¥Ñ¥Ã¥È·Á¼°¤ÇÁÇ¿ô¤¬Æþ¤Ã¤Æ¤¤¤ë n=1000000 : s=n : e=int(sqrt(n)+1)*int(sqrt(n)+1) : a="" repeat e-s c=cnt+s+1 : r=1 repeat notemax k+ : if k=256 : k=0 : wait 1 noteget n,cnt : n=int(n) if c\n=0 : r=0 : break if c<n*n : r=1 : break loop if r=1 : noteadd str(c) : notesel a : noteadd str(c) : notesel p loop notesel a : notesave "ÁÇ¿ô("+s+"¡Á"+e+").txt" : end

¡úºÇ¸å¤Ë
¡¡s¤µ¤ó¤Ïñ°Ì¼«Á³¿ôÅö¤¿¤ê¤ÎÁÇ¿ôȽÊÌ»þ´Ö[s/order]¤ò°ìÄê¤Ë¤·¤¿¤¤¤è¤¦¤Ç¤¹¤¬¡¢¤³¤ì¤Ï̵Íý
¤À¤È»×¤ï¤ì¤Þ¤¹¡£²¿¸Î¤Ê¤é¡¢°ì¤Ä¤Î¼«Á³¿ô¤¬ÁÇ¿ô¤Ç¤¢¤ë¤«Èݤ«¤òÄ´¤Ù¤ë°Ù¤ËÍפ¹¤ë·×»»Î̤Ï
¼«Á³¿ô¤ÎÂ礭¤µ¤Ë±þ¤¸¤ÆÊÑÆ°¤¹¤ë¤«¤é¤Ç¤¹¡£°Ê²¼¤Ë£î¶á˵¤Î¼«Á³¿ô¤¬ÁÇ¿ô¤Ç¤¢¤ë¤«Èݤ«¤òÄ´¤Ù¤ë
°Ù¤ËɬÍפʷ׻»²ó¿ô¤ò½ñ¤¤¤Æ¤ª¤­¤Þ¤¹¡£
>>£î(¼«Á³¿ô) £±É´ £±Ëü £±²¯ £±Ãû
>>£ã(·×»»²ó¿ô) 4 26 1229 78498
ñ½ã¤Ë¸À¤Ã¤Æ¤â¡¢£±Ëü¡Á£±Ëü£±Àé¤Þ¤Ç¤Î·×»»Î̤ȡ¢£±²¯¡Á£±²¯£±Àé¤Þ¤Ç¤Î·×»»Î̤Ǥϡ¢¤É¤Á¤é¤â
Ʊ¤¸¥ª¡¼¥À¡¼(£±Àé)¤Ç¤¢¤ê¤Ê¤¬¤é£¶Çܶᤤº¹¤¬À¸¤Þ¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤³¤ì¤ÏľÀÜÁÇ¿ôȽÊÌ»þ´Ö¤Î
º¹¤Ë¤Ê¤ê¤Þ¤¹¡£

¡¡Ã±°Ì¥ë¡¼¥×¿ôÅö¤¿¤ê¤Î¾ÃÈñ»þ´Ö[s/loop]¤Ç¤¢¤ì¤Ð¡¢¹±¾ïŪ¤Ë°ìÄê¤ËÊݤĻö¤Ï²Äǽ¤Ç¤·¤ç¤¦¤¬
ñ°Ì¼«Á³¿ôÅö¤¿¤ê¤Î¾ÃÈñ»þ´Ö[s/order]¤ò°ìÄê¤ËÊݤĻö¤ÏÉÔ²Äǽ¤Ê¤Ï¤º¤Ç¤¹¡£

¡¡°Ê¾å¡¢Ä¹Ê¸¤Ç¤·¤¿¤¬¡¢s¤µ¤ó¤Î»²¹Í¤Ë¤Ê¤ì¤Ð¹¬¤¤¤Ç¤¹¡£



¥¨¥¤¥¸

¥ê¥ó¥¯

2010/3/30(Tue) 22:56:22|NO.31680

ñ¤ËÁÇ¿ôȽÄ꤬ÃÙ¤¤¤À¤±¤Ê¤ó¤Ç®¤µ¤ò¾å¤²¤ì¤Ð¤¤¤¤¤ï¤±¤Ç¤¹¡£
ÁÇ¿ôȽÄ꤬½ÐÍè¤ëlongint¤È¤¤¤¦¥×¥é¥°¥¤¥ó¤¬¤¢¤Ã¤¿¤Î¤Ç¤½¤ì¤ò»È¤¦¤Î¤¬´Êñ¤Ç¤·¤ç¤¦¤«¡£
http://www.vector.co.jp/soft/win95/prog/se397330.html
¤â¤·¤¯¤Ï¥×¥é¥°¥¤¥ó¤Ê¤·¤Çɸ½àÌ¿Îá¤À¤±¤Ç¤Ä¤¯¤Ã¤Æ¤â¤½¤ì¤Ê¤ê¤ËÁ᤯¤Ê¤ë¤è¤¦¤Ç¤¹¡£


#module #deffunc eratosthenes dim list,46340 repeat 216,2 if list.cnt==0{ for i,cnt*2,46340,cnt list.i=1 next } loop pn=0 dim prime,65536 repeat 46338,2 if list.cnt==0:prime.pn=cnt:pn++ loop return #defcfunc isprimeC2 int a if a<2:return 0 f=1 repeat pn p=prime.cnt if p*p>a:break if a\p==0:f=0:break loop return f #global eratosthenes #include "d3m.hsp" #module #defcfunc IsPrimeAB int A,int B f=0 po=4 repeat B-A+1,A if IsPrimeC2(cnt)=1:f=1:break if po=cnt:wait 1:po=po+4 loop return f #defcfunc IsPrimeC int A i=2:while i*i <= A if(A\i = 0):return 0 i++ wend return 1 #global mes "n^2¤È(n+1)^2¤Î´Ö¤ËÁÇ¿ô¤¬Â¸ºß¤¹¤ë¤«Ä´ºº¤¹¤ë" mes "Ä´ºº³«»Ï" C=4097072 D=C+4 dim Nam,3 *Enter Nam(0) = d3timer() C++ A=C*C:B=(C+1)*(C+1) if A<0:mes "END":goto *endn if B<0:B=(1<<31)-1 if A > B:A = A xor B:B = A xor B:A = A xor B if IsPrimeAB(A,B)=1{ if C = D{ color 255,255,255 boxf 30,50 color 0,0,0 pos 30,50 mes "n="+C+" is OK" Nam(1) = d3timer() Nam(3)=Nam(1)-Nam(0) mes ""+Nam(3)+"ms/4 orders ¤Ç¼Â¹ÔÃæ" wait 1 D=D+4} goto *Enter }else{ mes "n="+C+" is not OK" mes ""+A+"¡Á"+B+"¤Î´Ö¤ËÁÇ¿ô¤Ï¤Ê¤¤" goto *endn } *endn stop



s

¥ê¥ó¥¯

2010/3/31(Wed) 06:46:37|NO.31688

º£³Îǧ¤·¤Æ½é¤á¤Æ¤ï¤«¤Ã¤¿¤ó¤Ç¤¹¤±¤É¡¢A,B¤¬Éé¤ÎÃͤˤʤäƤޤ¹¤Í¡Ä¡Ä
¤³¤ì¡¢Àµ¤·¤¯·×»»¤Ç¤­¤Ê¤¤¤ó¤Ç¤¹¤«¡©



hatter

¥ê¥ó¥¯

2010/3/31(Wed) 08:50:21|NO.31689

¤³¤ì¤Ã¤Æ¤¤¤¦¤Î¤Ïs¤µ¤ó¤Î½ñ¤¤¤¿¥¹¥¯¥ê¥×¥È¤Î»ö¤Ç¤·¤ç¤¦¤«¡©
¤ª¤½¤é¤¯HSP¤Î¸À¸ì»ÅÍͤξå¤ÎÀ©Ìó¤Ç¤¹¡£2147483647(32bit¤ÎºÇÂç)¤Þ¤Ç¤·¤«¿ô»ú¤Ïɽ¤»¤Þ¤»¤ó¡£
°Ê²¼¤Î¥¹¥¯¥ê¥×¥È¤ò¼Â¹Ô¤¹¤ì¤Ðʬ¤«¤ë¤È»×¤¤¤Þ¤¹¡£
ÅöÁ³¤Ê¤¬¤é¤½¤ì¤òĶ¤¨¤ë¤È¡¢Éä¹æ¥Ó¥Ã¥È¤òȿž¤µ¤»¤ë¤Î¤ÇÉé¤ÎÃͤˤʤê¤Þ¤¹¡£
ÀµÉé¤Îɽ¸½¤Ï2¤ÎÊä¿ô¤Ç¹Ô¤Ã¤Æ¤ë¤è¤¦¤Ç¡¢Éé¤ÎÊý¸þ¤Ë¤Ï1Â礭¤¯¿ô»ú¤¬É½¤»¤ë¤è¤¦¤Ç¤¹¡£


repeat 10,2147483647 mes cnt loop



s

¥ê¥ó¥¯

2010/3/31(Wed) 17:07:21|NO.31708

¤Ç¤Ï¡¢¤É¤Î¤è¤¦¤Ë¤¹¤ì¤ÐÀµ¤·¤¯·×»»¤Ç¤­¤ë¤Î¤Ç¤¹¤«¡©



¥¨¥¤¥¸

¥ê¥ó¥¯

2010/3/31(Wed) 22:25:22|NO.31720

>º£³Îǧ¤·¤Æ½é¤á¤Æ¤ï¤«¤Ã¤¿¤ó¤Ç¤¹¤±¤É¡¢A,B¤¬Éé¤ÎÃͤˤʤäƤޤ¹¤Í¡Ä¡Ä
¤Æ¤Ã¤­¤êint¤Î¾å¸Â¤òʬ¤«¤Ã¤Æ¤ë¤Î¤«¤È»×¤Ã¤¿¤Î¤Ç¤¹¤¬°ã¤Ã¤¿¤«¡£
¤è¤¯¸«¤¿¤éC=4097072¤È¤«¤Ê¤Ã¤Æ¤Þ¤¹¤Í¡£
C¤Î¸Â³¦ÃͤÏC=46340¤Ç¤¹¡£

¤½¤ì¤Ç¤É¤¦¤·¤¿¤é¤¤¤¤¤«¤Ç¤¹¤¬¡¢Á°¤Î¥ì¥¹¤Ç¾Ò²ð¤·¤¿longint¤ò¤Ä¤«¤Ã¤Æ¤ß¤¿¤é¤É¤¦¤Ç¤¹¤«¡£
int¤è¤ê¤â¤º¤Ã¤ÈÂ礭¤¤¿ôÃͤ¬»È¤¨¤ë¤è¤¦¤Ç¤¹¡£



s

¥ê¥ó¥¯

2010/4/1(Thu) 03:02:39|NO.31721

¤¦¤Þ¤¯¤Ç¤­¤Þ¤·¤¿¡£
¤È¤³¤í¤Ç¡¢longint¤Ï¤¤¤¯¤Ä¤Þ¤Ç¤ÎÀ°¿ô¤ò°·¤¨¤ë¤Î¤Ç¤¹¤«¡©



s

¥ê¥ó¥¯

2010/4/1(Thu) 04:27:12|NO.31722

longint¤Ï¤¤¤¯¤é¤Ç¤â·å¿ô¤òÁý¤ä¤»¤ë¤½¤¦¤Ç¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£



ONION software Copyright 1997-2023(c) All rights reserved.