ずざざん　ざん♪スクリプト

トップページ

2014-11-20T05:54:54+09:00

*あなたは、このwikiの &counter(total) 人目のお客様です today: &counter(today) yesterday: &counter(yesterday) *[[ずざざんざん♪>http://w.livedoor.jp/zuzazann/]] 14 10 01 ここもご無沙汰だったｗ **@wikiへようこそ -ウィキはみんなで気軽にホームページ編集できるツールです。 -このページは自由に編集することができます。 -メールで送られてきたパスワードを用いてログインすることで、各種変更（サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等）することができます &html() **まずはこちらをご覧ください。 -[[@wikiの基本操作>http://atwiki.jp/guide/category2.html]] -[[用途別のオススメ機能紹介>http://atwiki.jp/guide/category22.html]] -[[@wikiの設定/管理>http://atwiki.jp/guide/category6.html]] **分からないことは？ -[[@wiki ご利用ガイド>http://atwiki.jp/guide/]] -[[よくある質問>http://atwiki.jp/guide/category1.html]] -[[無料で会員登録できるSNS内の@wiki助け合いコミュニティ>http://sns.atfb.jp/view_community2.php?no=112]] -[[@wiki更新情報>http://www1.atwiki.jp/guide/pages/264.html]] -[[@wikiへのお問合せフォーム>http://atwiki.jp/helpdesk]] 等をご活用ください **@wiki助け合いコミュニティの掲示板スレッド一覧 #atfb_bbs_list(112) **その他お勧めサービスについて -[[大容量１Ｇ、PHP/CGI、MySQL、FTPが使える無料ホームページは@PAGES>>http://atpages.jp/]] -[[無料ブログ作成は@WORDをご利用ください>>http://atword.jp/]] -[[2ch型の無料掲示板は@chsをご利用ください>>http://atchs.jp/]] -[[フォーラム型の無料掲示板は@bbをご利用ください>>http://atbb.jp/]] -[[お絵かき掲示板は@paintをご利用ください>>http://atpaint.jp/]] -[[その他の無料掲示板は@bbsをご利用ください>>http://atbbs.jp/]] -[[無料ソーシャルプロフィールサービス @flabo(アットフラボ)>>http://sns.atfb.jp]] **おすすめ機能 -[[気になるニュースをチェック>http://atwiki.jp/guide/17_174_ja.html]] -[[関連するブログ一覧を表示>http://atwiki.jp/guide/17_161_ja.html]] **その他にもいろいろな機能満載！！ -[[@wikiプラグイン>http://atwiki.jp/guide/category17.html]] -[[@wiki便利ツール>http://atwiki.jp/guide/category32.html]] -[[@wiki構文>http://atwiki.jp/guide/category16.html]] -[[@wikiプラグイン一覧>http://www1.atwiki.jp/guide/pages/264.html]] -[[まとめサイト作成支援ツール>http://atwiki.jp/matome/]] **バグ・不具合を見つけたら？要望がある場合は？お手数ですが、メールでお問い合わせください。

ver 140305

2014-03-05T23:29:03+09:00

14/03/05 src読み込み改良　1行何要素でもいけるっぽい

ver 140226

2014-03-05T23:27:36+09:00

14/02/26 ラベルと変数をでっちあげたかんじ名前と処理がまだできてないｗ

簡単言語 Brainf_ck HSP ver

2014-02-20T21:41:16+09:00

/* */ ;#runtime "hsp3cl" #module step_2byte_num o_string,o_dim,o_index,o_length #modinit int p_length o_string="" o_length=p_length o_index=0 dim o_dim,o_length o_dim(o_length-1)=-1 return #modfunc local set str value o_string=value return #modfunc local set_index int p o_index=p return #modfunc local multi_set o_length=strlen(o_string) repeat o_length o_dim.cnt=one_get(thismod) if o_dim.cnt==-1:o_length=cnt+1:break loop return #modcfunc local get int p return o_dim.p #modcfunc local indexed_get local loc_r loc_r = o_dim.o_index o_index++ return loc_r #modcfunc local get_index return o_index #modcfunc local get_length return o_length // 数値を一文字返す #modcfunc local one_get if o_length>o_index{ n=peek(o_string,o_index) if ((n>=129)&(n<=159) )|( (n>=224)&(n<=252)){ o_index++ n2=peek(o_string,o_index) o_index++ num=n*256+n2 return num }else{ o_index++ return n } } return -1 #modcfunc each_with_index var p_c,var p_i,local loc_len loc_len=get_length@step_2byte_num(thismod) p_i=o_index p_c=indexed_get@step_2byte_num(thismod) if get_index@step_2byte_num(thismod) >= loc_len:return -1 return 1 #global sc= "++++++ [>++++++++++<-]>+++++." /* sc ="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++ ." sc+=">++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="++++++++++" sc+="+++++ .," //*/ ;mes cur ;mB_init sc mB_init_num sc mB_run repeat 200 logmes ""+(cnt)+":"+jumps@m_Brainf_ck.cnt loop #module m_stack o_array,o_index #modinit int p Empty=1 NotEmpty=-1 dim o_array, p o_index = 0 return #modfunc local push int p o_array(o_index) = p o_index++ return #modcfunc local pop o_index-- if o_index < 0 { dialog "popしすぎです",1 return 0 } return o_array(o_index) #modcfunc local is_Empty if o_index==0:return 1 return -1 #global #module m_Brainf_ck; source,source_l #define button_block(%1="") %tbtn1 %i0 button %1,*%p:%tbtn2 goto *%i %i0:%tbtn1 *%o #define b_break %tbtn2 goto *%p #define b_end %tbtn2 *%o:stop:*%o ;#deffunc mB_init str p ; sdim source,4000 ; source=p ; source_l=strlen(source) ; return #deffunc mB_init_num str p newmod o_Bf,step_2byte_num,$400 set@step_2byte_num o_Bf,sc@ multi_set@step_2byte_num o_Bf source_l=get_length@step_2byte_num(o_Bf) ;#deffunc analyze_jumps array jumps newmod o_stack,m_stack,256 ; meminit 256 dim jumps,$400 set_index@step_2byte_num o_Bf, 0 len=get_length@step_2byte_num(o_Bf) repeat len c=0:i=0 if each_with_index(o_Bf,c,i)==-1:break if c==-1:break if c=='['{ push@m_stack o_stack,i }else{ if c==']'{ if is_Empty@m_stack(o_stack)==Empty@m_stack{ dialog "stack error ] が多すぎます",1 stop } from=pop@m_stack(o_stack) to=i jumps.from=to jumps.to=from } } loop if is_Empty@m_stack(o_stack)==NotEmpty@m_stack{ dialog "stack error [ が多すぎます",1 stop } return #deffunc mB_run //mes "calc" pos 0,0 pos_x=0 pos_y=0 dim tape,$400 pc=0 cur=0 while pc < source_l cur_token=get@step_2byte_num(o_Bf,pc); peek(source,pc) switch cur_token case '+' tape.cur += 1 swbreak case '-' tape.cur -= 1 swbreak case '>' cur += 1 swbreak case '<' cur -= 1 if cur<0{ dialog "開始地点より左には移動ﾃできません",1 cur=0 } swbreak case '.' n = peek(tape,cur*4) sdim s,16 poke s,0,n pos pos_x,0 mes s ; mes n pos_x+=10 swbreak case ',' pos 0,20 _4input="" input _4input,150,20,1 while 1 if _4input!="":_break wait 1 wend ; button_block "input" n=peek(_4input,0) tape.cur = n clrobj ; stop ; goto *restart ; b_end ; stop swbreak case '[' if tape.cur==0: pc=jumps.pc swbreak case ']' if tape.cur!=0: pc=jumps.pc swbreak swend *restart pc++ await 1 wend return #global /* i=0 while i<3 mes i i++ wend wend Ruby本に載ってる簡単言語をHSPに翻訳しましたｗ次はコレをCに翻訳したいですね・+：カウンタを1増やす・-：カウンタを1減らす・>：カウンタを右に移動する・<：カウンタを左に移動する・.：カウンタの数値の文字を出力・,：カウンタに文字入力・[：ループ開始・]：ループ終了

HSP_MOD_400x

2012-07-26T12:29:48+09:00

*もらいものMODULE NO.4001 時間計測MODULE tytyさんが作成したモジュールを、変数/命令名/マクロ名を変更してコメントを編集したものです NO.4002 ベンチマーク　その２ [[戻る>HSP_MOD_index]]

HSP_MOD_300x

2012-07-26T12:29:24+09:00

*やくたたずスクリプトもったいなくて（せっかくなので）割愛できずｗ NO.3001 logmesを含む行を削除するツール logmesは自動的に削除されるぽいｗ NO.3002 文字列の自動確保機能を使用して数値配列を自動確保するモジュール配列は自動的に拡張されますｗ NO.3003 文字列の自動確保機能を使用して複数の文字列を格納するモジュール配列は自動的に拡張されますｗ NO.3004 "FILE_array_plus.hsp"モジュールと"FILE_str_plus.hsp"モジュールの合体配列は自動的に拡張されますｗ NO.3005 操作する配列を切り替えて、SIZEが大きくなるデータへアクセスするモジュール配列は自動的に拡張されますｗ NO.3006 特殊文字を展開するモジュール上手く動きませんｗ NO.3007 特殊文字を展開するモジュール（2byte文字対応ver）上手く動きませんｗ [[戻る>HSP_MOD_index]]

HSP_MOD_200x

2012-07-26T12:29:04+09:00

*HSPLet用スクリプト NO.2001 その文字列に指定の文字列が何個あるか、調べるモジュール NO.2002 シンプルな分割モジュール NO.2003 標準命令を使った実数乱数 [[戻る>HSP_MOD_index]]

HSP_MOD_105x

2012-07-26T12:28:38+09:00

NO.1051 文字列用doubleの小数点以下を削除するMODULE NO.1052 オブジェクトrepeat MODULE double version NO.1053 例外を返す変数MODUE ver 02 例外使ってないですけどｗ [[戻る>HSP_MOD_index]]

HSP_MOD_104x

2012-07-26T12:28:18+09:00

NO.1041 標準命令を使った実数乱数 NO.1042 mesbox用命令簡易版 NO.1043 double←→str NO.1044 何回に一回かawaitするMODULE NO.1045 loop処理色々 NO.1046 loop用オブジェクトMODULE NO.1047 補数を求める。補数から変換するMODULE NO.1048 オブジェクトrepeat MODULE NO.1049 例外を返す変数MODUE NO.1050 例外を返す変数MODUE double版 [[戻る>HSP_MOD_index]]

HSP_MOD_103x

2012-07-26T12:27:52+09:00

NO.1031 返り値の違うinstr NO.1032 イテレータみたいにノートパッドを使う NO.1033 遅いreplace NO.1034 オブジェクトにメッセージを送るモジュール NO.1035 位置情報を設定しながら描画するモジュール NO.1036 左端の半角スペースとタブを取り除く命令 NO.1037 ノートパッド用命令 NO.1038 mesbox用命令 NO.1039 文字列のイテレータもどき NO.1040 lambdaもどきマクロ [[戻る>HSP_MOD_index]]

ずざざん ざん♪スクリプト