HSPTV!掲示板

ある数値の特定の桁を抽出したい場合の処理なんですが、

数値を文字列化　→　peekで抽出　→　文字コードを数値化

というメンドウな方法しか思いつきませんでした。
これでも可能は可能だったんですが、
もっとスマートな処理方法があるんじゃないかと思い質問しました。
よろしくお願いします。

文字列として処理すればいいのでは?

strmid 関数を用いて、文字列の特定の桁を抽出することができます。

a="387" //もとの数値

b=strmid(a,0,1) //１桁目を取り出し、b に代入
c=strmid(a,1,1) //２桁目を取り出し、c に代入

mes "数値は "+a
mes "\n１桁目は "+b //"\n"は改行コードです。念のため。
mes "２桁目は "+c
stop

整数にすると切り捨てられることを利用して。

a=123456	;数値指定
b=4			;桁指定
c = a/powf(10,(b-1)) - a/powf(10,b)*10
mes c

＞kkさん
ああー、strmidは忘れていました、ずっとstrとstrfで思考が止まってました・・・
このほうがずっとスマートですね。

＞GENKIさん
powfとは、自分ではまず出てこない発想でした。これはかなりスマートですね。



ありがとうございました、活用させていただきたいと思います。

解決した様ですがせっかくなので投稿させていただきます。
割り算の余りを利用しています。

	dig = 100 ; 100 の位を調べる
	num = 123450 ; 調べる数
	rlt = num / dig  ; 調べる桁を一の位に合わせる
	Ans = rlt \ 10 ; それを10で割った余りが答えと成る。
	mes strf("%d の %dの位は %d である" ,num,dig,ans)

<追記>
繰り返しの中で使うにはこんな感じです。

;	1	調べる数列
;	2	調べる桁数
;		1の位を調べるなら １
;		10の位を調べるなら 10 を指定する。
#define ctype Digits(%1,%2) ((%1 / %2) \ 10)

	dig = 1
	repeat 4
		mes Digits( 123450 , dig )
		dig *= 10
	loop
	

　窓口さんのを汎用化したのがGENKIさんのスクリプトです。
他人の回答を読まずに投稿する人はWOM(Write Only Member)と呼ばれます。

すみません。以後気をつけます。

> 　窓口さんのを汎用化したのがGENKIさんのスクリプトです。
> 他人の回答を読まずに投稿する人はWOM(Write Only Member)と呼ばれます。

現状では、窓口さんの物より GENKI さんの物の方が使い勝手が良いのは確かです。
ですが、それだけの理由で切り捨ててしまう程、窓口さんのスクリプトは無価値なのでしょうか？

窓口さんと GENKI さんのスクリプトの機能的な差は、powf 関数をたった 1 個付け足すだけで解消されます。

#define ctype digit(%1,%2) ((%1) / powf(10,%2) \ 10)

    mes digit(12345,0)  ; GENKI さんのとは桁の指定がずれるけど、それは気にしない (^^;

これを踏まえて考えた時、少なくとも私は窓口さんのスクリプトの方がずっとスマートだと感じるし、速いコードだろうなぁと思います。
より良いコードを書くヒントとなったというだけでも相当意味のあるレスです。

それに、窓口さん自身、自分のレスが蛇足である事を理解して投稿しています。
2 つ目のレスは余計かなと私も思いますが、解法も異なるのだし、批判だけされるような物ではないように思います。

　問題は、窓口さんがGENKIさんのスクリプトを理解していなかったことにあります。
窓口さんの記事が無価値などと書いた覚えはありません。

蛇足
>powf 関数をたった 1 個付け足すだけで解消されます。
　だから、窓口さんの記事に価値があるというのは、論理がおかしい。

　WOMまで持ち出したのはちょっときつすぎたかなとは思いました。

WOMなんて聞いたことがありませんが…

補足：気になったのでＷＯＭを調べてみました

ＷＯＭはＲＯＭの対義語みたいです。


ＲＯＭ→Read Only Member

ＷＯＭ→Write Only Member


ホームぺージは参考にしたサイトです。

「ＷＯＭ」でページ検索でもかけてください。


ちなみに、お二人のやり方で１万回の計算にかかる時間を比較してみると、
こちらの環境では

窓口さん　→　60ms 前後

GENKIさん　→ 150ms 前後

でした。


これが一般的な結果であるかどうかは分かりませんが、

少なくとも自分にとっては窓口さんのスクリプトには十分価値があるようです。


個人的には、色んなスクリプトが見れればそれでいいのでは、と。

根本の考え方は同じでも、少しでも違うなら、

自分の勉強のために見ときたいですね。


蛇足失礼！

>「ＷＯＭ」でページ検索でもかけてください。

今時、目にした事のない言葉だったので、
どこかで使われているのか気になりました。

Goojieで検索してみます。
ありがとうございました。

>少なくとも自分にとっては窓口さんのスクリプトには十分価値があるようです。
　速度なんか問題にするんじゃ、論点がずれています。
結局、GENKIさんのスクリプトを理解できてる人は少ないってこと？
だとしたら、全然蛇足じゃなかったということになりますが……

別に悪意があってやった訳でもないのに
なんでそんなに突っかからなきゃいけないんですかね。

GENKIさんのも窓口さんのもやっていることは同じですが、
書き方が丸っきり違うでしょう。
こういう書き方もあるよ、というサンプルは提示してはいけないんでしょうかね？

それにANTARESさん本人が仰った、
>問題は、窓口さんがGENKIさんのスクリプトを理解していなかったことにあります。
は既に解決されているのでは？窓口さんも「以後気をつけます。」と仰っていることですし。

今回の件もそうですが、大したことでもないのに
いちいち突っかかって面倒なことにするのはやめませんかね？
少なくともこういう流れになるのを快く思う人は居ないと思うんですが。

・整数の割り算は端数を切り捨てるというHSPの仕様を利用している
という点が共通なだけで、GENKI様と窓口様のスクリプトは同じアルゴリズムではないんじゃないでしょうか。

抽出元の数値が負の場合、結果が異なる気がします（今実行環境が無いので試せませんが）

通りすがりさん、一連のやり取りを見てご気分を悪くされた方、申し訳ありません。
ですが、どうしても言っておきたい事があるので、これを最後に言わせてください。

ANTARES さんは、窓口さんが GENKI さんのスクリプトを理解していなかったと述べていますが、ANTARES さんがレスをした時点において、理解していた可能性は全く考えられなかったのでしょうか？
私はどちらとも言えないと思ったので、あのように端から決め付けての批判は行き過ぎだと感じました。

理解していなかったと言い切るのなら、少なくともその根拠を具体的に書いておくべきだったと思います。
汎用性を指摘されていますが、両者のスクリプトにどのような汎用性の違いがあるのかは全く示されてありません。
これがあれば、ANTARES さんのレスは単なる補足と受け取れたと思います（WOM は除いたとして。）が、これが無い為に、汎用性の違いの分からない私にとっては、「他人のレスを読んで下さい」という意味以外に「レベルが下がるようなレスは不要です」という悪意を感じられました。
（ちなみに、この「不要」が私のレスにおける「無価値」で言い表したかった事です。確かにこの言葉には「不要」とは異なるニュアンスが含まれているので、用いるべきではありませんでした。すみません。）
こういう捉え方をする人もいるという事で、今後注意してもらえたらと思います。

今度は私の非を。
窓口さんの謝罪の後のタイミングで批判的なレスをしてあるのは、私がレスを書き始めた時点では窓口さんの謝罪のレスはまだなく、投稿時に最新の状況を確認せず投稿したまま、それに気付いた時には既に私の発言に対するレスが返っていた為消すに消せない状態になっていたからです。今となっては都合の良い言い訳にしかなりませんね。すみませんでした。
今後は投稿時に最新の状況を確認する事、用いる言葉の意味を慎重に考えてレスして行こうと思います。

蛇足
>>powf 関数をたった 1 個付け足すだけで解消されます。
>　だから、窓口さんの記事に価値があるというのは、論理がおかしい。
ひとつの段落がスクリプトで分断されたので分かりづらかったのでしょうか？
そこは単なる導入部分で、結論として最後に「より良いコードを書くヒントとなった」からと書いているのですけれど…。

解決済みの、しかも問題とは全く無関係の所でのスレ汚し、大変失礼しました。

いつの間にか知らないところで名前が連呼されている！ｗ
まあいいか。


>>窓口さん（No.30954）

「割り算」と「余り」の発想はなかった。目からうろこです。

文字列から抽出、小数の切捨て、…でうちどめかな。私ではもうこれ以上思いつかないです。


> 抽出元の数値が負の場合、結果が異なる気がします（今実行環境が無いので試せませんが）

窓口さんのも私のも「-123450」で３桁目を抽出したら「-4」を返しました。orz
ということで、改良版。といってもabs使っただけですが。ｗ

a=-123450	;数値指定
b=3		;桁指定
c = abs( a/powf(10,(b-1)) - a/powf(10,b)*10 )
mes c

それにしても少し脱線が過ぎますね。シエンすみません。

うっ　これは・・・。

解決済みにレスがつくと思っていなかったのと、
掲示板に来るのは検索か質問のある時だけだったので気づきませんでした・・・
自分の質問が端を発しておいてなんですが、掲示板が気持ちよく使えるよう
自分も気をつけていこうと思います。

お礼が遅れまして、すいません。

窓口さん、ご回答ありがとうございました。
GENKIさんも、改良版ありがとうございます。さっそく使わせていただきます。