[過去ﾛｸﾞ] プログラミングのお題スレ Part18 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
803(2): ◆QZaw55cn4c 2020/10/29(木)19:01 ID:7aED6VYA(1) AAS
>>787
双方向リストの方が、後々いろいろ流用できてありがたいんですけど、それでも端方向リストでインプリしないといけないのですか？
804: 2020/10/29(木)19:02 ID:c1P6mcgH(1) AAS
持て余すくらいなら「なるべく使わない」とか評価基準を示すだけにしとけばいいのに
805: 2020/10/29(木)19:32 ID:EQ9lcE/o(1/2) AAS
>>793
全く同じこと思ってたわｗ
806: 2020/10/29(木)19:34 ID:EQ9lcE/o(2/2) AAS
>>797
どうでもいいけどお前のIDもjsだｓな
807(1): 2020/10/29(木)19:40 ID:Pf0NRL7D(1) AAS
>>787 Brainfuck
push: <[>],
pop: <[>]<[-]<
808: 2020/10/29(木)20:59 ID:zgfLAX1f(1) AAS
>>787
push,popってリストじゃなくてスタックの機能じゃ？
リストにさせるなら、先頭に追加してく方が速くて楽なのに。
push xs a = a:xs
pop (x:xs) = (xs,x)
反転させたいなら最後の最後にすべきだよ。
Haskell
― 使用例用main関数
main = do pushlist <- (return.push (Cons 1 (Cons 2 Null))) 3
(poplst, popval) <- (return.pop) pushlist
省13
809: 2020/10/29(木)21:10 ID:wtq/xrTf(2/3) AAS
>>787 JavaScript
class List {
#data = []
push(n) {
this.#data = [n, this.#data]
return this
}
pop() {
const [head, tail] = this.#data
if (tail) this.#data = tail;
省18
810: 2020/10/29(木)21:13 ID:wtq/xrTf(3/3) AAS
うわ
console.log('JSON: ' + JSON.stringify({'test': list})) //=> JSON: {"test":[2,7,0]}
だった
811(1): 2020/10/29(木)23:09 ID:MaNQDMIt(1) AAS
>>803
お題
双方向リストをC89で実装してください
812(1): 253 2020/10/29(木)23:20 ID:UgpGZWA4(1) AAS
>>807
813: 2020/10/29(木)23:24 ID:3o7XtB23(1) AAS
>>787 ocaml
外部ﾘﾝｸ:ideone.com
type 'a _list = Nil | Cons of 'a * 'a _list
exception EmptyListException
let push xs x = Cons(x, xs)
let pop = function Nil -> raise EmptyListException | Cons (x, c) -> (x, c)
let rec each f = function Nil -> () | Cons (x, xs) -> f x; each f xs
let x, xs = pop (push (push (push Nil 1) 2) 3)
let () = print_int x; each print_int xs
814: 2020/10/29(木)23:26 ID:GFOWX4AY(9/9) AAS
>>803
双方向書きたいってことなら書けば
お題は単方向だけど
815: 2020/10/30(金)00:06 ID:aDtUVDPI(1) AAS
>>802を改良？
State [Int] だとあらかじめ用意した一個のstackしか使えない
噂に聞いたことあつたST monadで複数のスタック使えるように改造
Haskell
import Control.Monad
import Control.Monad.ST
import Data.STRef
data Stack a = Empty | N { car :: a, cdr :: Stack a } deriving (Show)
push stk val = modifySTRef stk (N val)
pop stk = car <$> readSTRef stk <* modifySTRef stk cdr
省15
816(2): 253 2020/10/30(金)00:07 ID:hMjmzAXb(1/5) AAS
>>787 Perl5
公式ﾏﾆｭｱﾙに書かれている通りsplice関数を使ってpush, popを記述できる。
splice(@a,@a,0,$x); # push(@a, $x)
splice(@a,-1); # pop(@a)
なんだけどspliceを使わず言語のstatementだけでpush, pop関数を記述すると…こんな感じ
use v5.18;
use feature 'signatures';
no warnings "experimental::signatures";
sub Push($a, $x) {
@$a = (@$a, $x);
省17
817: 253 2020/10/30(金)00:09 ID:hMjmzAXb(2/5) AAS
>>816
say $y;
の下に書いてあった最後の行
say "@s";
をコピペしそびれた…orz
818(1): 253 2020/10/30(金)00:22 ID:hMjmzAXb(3/5) AAS
>>816 Pop関数はこっちの方がいいな、無駄なコピーもないし。
sub Pop($a) {
my $b = @$a[-1];
delete @$a[-1];
$b;
}
819(1): 253 2020/10/30(金)00:32 ID:hMjmzAXb(4/5) AAS
>>818 deleteは削除したスカラー値を返すわ。だから以下でいいんだ
sub Pop($a) {
my $b = @$a[-1];
delete @$a[-1];
}
820: 253 2020/10/30(金)00:34 ID:hMjmzAXb(5/5) AAS
>>819 my $b = @$a[-1]; 不要だった…orz
sub Pop($a) {
delete @$a[-1];
}
821: 2020/10/30(金)00:50 ID:9RgBA+ge(1/2) AAS
>>787
Java
外部ﾘﾝｸ:paiza.io
822: 2020/10/30(金)02:22 ID:9RgBA+ge(2/2) AAS
>>811
Java
外部ﾘﾝｸ:paiza.io
823: 2020/10/30(金)07:07 ID:cChJ6BWU(1) AAS
>>812
あ？
824: 2020/10/30(金)23:30 ID:hYhF3+Ov(1) AAS
Brainfuck読めないわ
覚えようかな
825(19): 2020/10/31(土)13:49 ID:QnYm1bfS(1/3) AAS
お題
与えられた文字列を一文字ずつ見ていき"trick"と"treat"の5文字でどちらが先に揃うか判定してください（順序込み）
どちらもヒットしないときは考慮しなくていいです
treakOrTreat("trick or treat")
// => trick
treakOrTreat(". tr ick")
// => trick
treakOrTreat("ttrriecatk")
// => treat
treakOrTreat("tri kc eat")
省3
826: 2020/10/31(土)13:51 ID:QnYm1bfS(2/3) AAS
>>825 js(self)
function treakOrTreat(text) {
const [tri] = /t.*r.*i.*c.*k/.exec(text) || []
const [tre] = /t.*r.*e.*a.*t/.exec(text) || []
if (!tri && !tre) return 'none'
if (!tri) return 'treat'
if (!tre) return 'trick'
return tri.length < tre.length ? "trick" : "treat"
}
827: 2020/10/31(土)14:54 ID:HHhQTZ6R(1) AAS
関数名のミススペリングは修正していいですか
828: 2020/10/31(土)15:02 ID:QnYm1bfS(3/3) AAS
ごっつtypoしてたすまんFIXME
829(1): 2020/10/31(土)15:07 ID:DmLmDhBA(1/2) AAS
>>825 Common Lisp
外部ﾘﾝｸ:ideone.com
830: 2020/10/31(土)15:33 ID:I05R+wBh(1) AAS
相変わらずキモいなあ、いつもの勝手に認定キッズ
ミュートにしてるという情報から相手が雑魚であるというぶっ飛んだ推論をする知性の欠片も持ち合わせない負け組
831: 2020/10/31(土)15:36 ID:DmLmDhBA(2/2) AAS
>>825 Common Lisp
外部ﾘﾝｸ:ideone.com
>>829は無駄な条件判定(二つめの (null a))があったので修正
832: 2020/10/31(土)15:44 ID:pGrSKCPz(1) AAS
>>825 JavaScript
function trickOrTreat(str = '') {
const trick = [...'trick']
const treat = [...'treat']
let result = 'none'
for (const c of str) {
if (c === trick[0]) trick.shift()
if (c === treat[0]) treat.shift()
if (!trick.length || !treat.length) {
result = trick.length ? 'treat' : 'trick'
省5
833: 2020/10/31(土)15:54 ID:i0S/O8KX(1) AAS
>>787
C
外部ﾘﾝｸ:paiza.io
834(1): 2020/10/31(土)16:42 ID:B0ELcd4k(1/2) AAS
>>825
Haskell
外部ﾘﾝｸ:ideone.com
835: 2020/10/31(土)17:10 ID:M62mfk9p(1) AAS
>>787
Perl
外部ﾘﾝｸ:paiza.io
836: 2020/10/31(土)17:42 ID:/zmNVLOW(1) AAS
>>787
Kotlin
外部ﾘﾝｸ:paiza.io
837: 2020/10/31(土)21:33 ID:g64iH70d(1) AAS
>>825
Java
外部ﾘﾝｸ:paiza.io
838(1): 2020/10/31(土)21:58 ID:t2sIU1o6(1) AAS
>>825 Ruby
def trickOrTreat( str )
trick = str.match( /\A.*?t.*?r.*?i.*?c.*?k/ )
treat = str.match( /\A.*?t.*?r.*?e.*?a.*?t/ )
return 'none' unless trick or treat
return 'trick' unless treat
return 'treat' unless trick
return (trick[0].size < treat[0].size)? 'trick' : 'treat'
end
[ "trick or treat", ". tr ick", "ttrriecatk", "tri kc eat", "my money",
省4
839: 2020/10/31(土)22:19 ID:B0ELcd4k(2/2) AAS
>>834
改定
やはりHaskellerがこのお題でparsec使わないのはダメという事で
Haskell
import Text.ParserCombinators.Parsec
makeP cs = foldl1 (<>) $ map (\c -> (many $ noneOf [c]) <> (return <$> anyChar) ) cs :: Parser String
first xs ys = case (runParser (makeP xs) () "" ys) of
Left _ -> (1, 0)
Right x -> (0, length x)
省6
840: 2020/10/31(土)22:49 ID:pe+8/Oyn(1) AAS
>>825
C
#include<stdio.h>
char* trickOrTreat(char*s, char*tk, char*tt){
if(!*tk)return "trick";
if(!*tt)return "treat";
if(!*s) return "none";
if(*s == *tk)tk++;
if(*s == *tt)tt++;
return trickOrTreat(s+1, tk, tt);
省13
841(1): 253 2020/10/31(土)22:58 ID:i+h07tFB(1/4) AAS
AA省
842(1): 2020/10/31(土)23:10 ID:8FYB/kmH(1) AAS
>>841
なんでお前ずっとコテハンつけてんの？
843(1): 253 2020/10/31(土)23:20 ID:i+h07tFB(2/4) AAS
>>842 IPアドレスがたまに変わるのと自分のレスを見分けやすくするため。固定ではなく番号はたまに変えてる
気にしないで
844(1): 2020/10/31(土)23:26 ID:OVAIfmUR(1/2) AAS
>>787 c
外部ﾘﾝｸ:ideone.com
845(1): 2020/10/31(土)23:27 ID:wd4K8eMC(1) AAS
>>843
専ブラ使えばいいのに
846: 253 2020/10/31(土)23:32 ID:i+h07tFB(3/4) AAS
>>845
IPアドレスが変わったり日にちがたった自分のレスを簡単に表示し分けられる専ブラで良いのある？
出来ればLinuxで。ちなStyleは好みではない
847(1): 253 2020/10/31(土)23:38 ID:i+h07tFB(4/4) AAS
>>844
教科書に載っているようなきれいなｺｰﾄﾞ書くね
848: 2020/10/31(土)23:54 ID:OVAIfmUR(2/2) AAS
>>847
サンクスコ
でも、引数の評価順については正直お行儀悪いんで
勉強してるみんなはそのへん各自ぐぐってみてね
849(1): 2020/11/01(日)00:59 ID:KABEK1ar(1/2) AAS
>>825
Ruby
text = <<'TEXT'
trick or treat
. tr ick
ttrriecatk
tri kc eat
my money
TEXT
# 配列化
省3
850: 849 2020/11/01(日)01:00 ID:KABEK1ar(2/2) AAS
>>849
の続き
def find_index( str, original )
idx_2 = 0
str.each_char.with_index do |char, idx| # 1文字ずつ処理する
idx_2 += 1 if char == original[ idx_2 ]
return idx if idx_2 == original.length # すべての文字が一致
end
nil
end
省13
851: 2020/11/01(日)01:29 ID:17LNcGyj(1/2) AAS
>>825
Kotlin
外部ﾘﾝｸ:paiza.io
852: 2020/11/01(日)01:49 ID:17LNcGyj(2/2) AAS
>>825
C
外部ﾘﾝｸ:paiza.io
853: 838 2020/11/01(日)12:58 ID:g/v4ZA9S(1) AAS
>>825 Ruby
正規表現を捨てて index+inject に
def trickOrTreat( str )
trick = 'trick'.chars.inject(-1){|r,ch| break r unless r = str.index( ch, r+1 ); r }
treat = 'treat'.chars.inject(-1){|r,ch| break r unless r = str.index( ch, r+1 ); r }
return 'none' unless trick or treat
return 'trick' unless treat
return 'treat' unless trick
return (trick < treat)? 'trick' : 'treat'
end
省5
854: 蟻人間 ◆T6xkBnTXz7B0 2020/11/01(日)14:40 ID:wOVD56Lv(1/6) AAS
お題：大阪都構想が実現すると、現在の大阪市は消滅すると予想される。都構想実現前の住所を実現後の住所に変換しなさい。
855(1): 2020/11/01(日)16:05 ID:+nQAPqAx(1/2) AAS
次行ってみよう
856: 蟻人間 ◆T6xkBnTXz7B0 2020/11/01(日)16:41 ID:wOVD56Lv(2/6) AAS
参考：外部ﾘﾝｸ[html]:www.asahi.com
857(1): 蟻人間 ◆T6xkBnTXz7B0 2020/11/01(日)16:44 ID:wOVD56Lv(3/6) AAS
これも：外部ﾘﾝｸ:maidonanews.jp
858(1): 2020/11/01(日)16:51 ID:VQGUeFT5(1) AAS
お前らは競技プログラミングとかやってる？
859: 253 2020/11/01(日)16:54 ID:I8lyxV1q(1) AAS
>>858
やろうとしたことはあるがまだ未経験
何か受験勉強みたいになっちゃってるコンテストには魅力を感じない
でも世界トップレベルは年間4000万くらい賞金稼ぐとい話をきいてそういうのにはちょっと惹かれる
860(1): 蟻人間 ◆T6xkBnTXz7B0 2020/11/01(日)17:00 ID:wOVD56Lv(4/6) AAS
>>855
あんまりバカにするなよ。住所変換できないと大坂大混乱になるよ。
861: 2020/11/01(日)17:18 ID:EgIfcLXC(1) AAS
バカにしてるのはおまえ
他所の住所変更地の状況知らんのか？50年前の住所でも年賀届くわ
数年〜十数年或いはそれ以上旧住所で配送可能。舐めすぎ
862: 2020/11/01(日)17:31 ID:+nQAPqAx(2/2) AAS
>>860
ここでそのお題といても大混乱が回避できるわけでもなし
そういう問題じゃなくてそろそろ自分にいい問題作るセンスがない事自覚すべき
863: 2020/11/01(日)17:35 ID:S9fsJ+JS(1) AAS
データ引っ張ってくるだけじゃん
ただの知識問題は悪問
864: 2020/11/01(日)18:32 ID:erpRcPg0(1) AAS
やってみたが
競技系はプログラミングのスキル向上には役立たんよ
865(1): 2020/11/01(日)18:50 ID:4+fLUvoM(1) AAS
>>857
このサイト気持ち悪いな
866(1): 蟻人間 ◆T6xkBnTXz7B0 2020/11/01(日)19:52 ID:wOVD56Lv(5/6) AAS
>>865
太陽風を読めよ。
867(1): 2020/11/01(日)19:57 ID:wWMHVvTS(1) AAS
>>866
消えろ
868: 蟻人間 ◆T6xkBnTXz7B0 2020/11/01(日)20:04 ID:wOVD56Lv(6/6) AAS
>>867
お前がえろ
869(1): 2020/11/02(月)00:22 ID:bEILeQs7(1) AAS
>>825 octave
外部ﾘﾝｸ:ideone.com
870: 2020/11/02(月)04:28 ID:2/AbCXtL(1/2) AAS
>>825
Perl
外部ﾘﾝｸ:paiza.io
正規表現使ってみました。
871: 2020/11/02(月)04:45 ID:BfD57ecO(1/2) AAS
"trick"と"treat"を受理するオートマトンを作って
入力文字列から1文字ずつ与えて状態遷移(または待機)させていく
末尾まで先に受理されたほうを答えとする
みたいなことだけ考えた
872: 2020/11/02(月)04:48 ID:BfD57ecO(2/2) AAS
けど実装すると無駄にでかくなりそう
873: 2020/11/02(月)10:04 ID:/BOVDIIM(1) AAS
オートマトンって言語でなんか表現できる構造ある？
874: 2020/11/02(月)10:41 ID:5JhQS2vf(1) AAS
正規表現で表現できる⇔オートマトンで受理できる
でしょ？
今回なら入力xに対し出力がtrickである場合を
[^t]*t[^r]*r[^ie]*i[^ce]*c[^ke]*k.*
|[^t]*t[^r]*r[^ie]*i[^ce]*c[^ke]*e[^ka]*k.*
...
(10パターン)
....
と正規表現だけで表現できてしまう
875(1): 蟻人間 ◆T6xkBnTXz7B0 2020/11/02(月)12:23 ID:iXWhExA8(1) AAS
お題：パラボラアンテナが理論上の焦点に電波を集めることを示しなさい。
パラボラアンテナの半径を100とし、原点を中心にx軸上に焦点が来るように配置する。x軸と平行に電波がアンテナに入ってきて、入射角と反射角が等しくなるように電波が反射する。
このとき、どの場所で反射しても、反射した電波を表す直線が理論上の焦点に十分近づくことを示せ。
876: 2020/11/02(月)12:23 ID:UfGVYnOo(1/2) AAS
まじでセンスないな
877: 2020/11/02(月)12:36 ID:zo3ZJgwO(1) AAS
パラボラアンテナの半径ってどこのことだよ
878: 2020/11/02(月)13:43 ID:gftnEWfN(1) AAS
common lisp
外部ﾘﾝｸ:ideone.com
うーん微妙
879: 2020/11/02(月)14:26 ID:vIueiXdU(1) AAS
>>825 .bat
@echo off &setlocal enabledelayedexpansion
if "%~1"=="" echo none&exit /b
set "STR=%~1"
set TRICK=trick
set TREAT=treat
set /a n=0, k=0, t=0
:WHILE
if /i "!STR:~%n%,1!"=="!TRICK:~%k%,1!" if %k% LSS 4 ( set /a k+=1 ) else echo trick&exit /b
if /i "!STR:~%n%,1!"=="!TREAT:~%t%,1!" if %t% LSS 4 ( set /a t+=1 ) else echo treat&exit /b
省3
880: 2020/11/02(月)18:10 ID:Ac4tp6ZL(1) AAS
>>825
Haskell
外部ﾘﾝｸ:ideone.com
iimport Text.ParserCombinators.Parsec
makeP = mconcat . map ( manyTill anyChar . char )
lastInd x s = case ( runParser ( makeP x ) () "" s ) of
Left _ -> ( [ 2, 0 ] , x )
Right y -> ( [ 0, length $ x ++ y ], x )
trickOrTreat x = snd $ minimum [
lastInd "trick" x,
省8
881: 2020/11/02(月)19:01 ID:hORytTpS(1) AAS
>>825
#include <stdio.h>
#include <string.h>
static void
tot (char *p)
{
int i = 0, j = 0;
if ((p = strchr (p, 't')) && (p = strchr (p + 1, 'r')))
while (*++p && !(*p == "ick"[i] && ++i == 3) && !(*p == "eat"[j] && ++j == 3)) ;
printf ("%s\n", (i == 3) ? "trick" : ((j == 3) ? "treat" : "none"));
省10
882(9): 2020/11/02(月)19:55 ID:0Q72CsT7(1) AAS
お題
アスペクト比X:Y、L[inch]のディスプレイの
幅Wと高さHをcm単位でそれぞれ求めよ
[入力]
X Y L
[出力]
W H ※cm単位で小数第1位まで出力
[例]
16 9 40
=> 88.6 49.8
省4
883: 869 2020/11/02(月)20:41 ID:PEXljxha(1/3) AAS
>>825 octave
外部ﾘﾝｸ:ideone.com
・残り文字数数える関数fがガバガバだったので修正
884: 2020/11/02(月)20:50 ID:LqVECFSh(1) AAS
>>882
Java
外部ﾘﾝｸ:paiza.io
885: 2020/11/02(月)20:55 ID:UfGVYnOo(2/2) AAS
>>882
実用的じゃん
886: 2020/11/02(月)21:39 ID:PEXljxha(2/3) AAS
>>882 octave
外部ﾘﾝｸ:ideone.com
887: 2020/11/02(月)22:00 ID:PEXljxha(3/3) AAS
>>882 octave
外部ﾘﾝｸ:ideone.com
・若干の変更
888: 2020/11/02(月)22:02 ID:i1cL0pVh(1) AAS
>>875
消えろ
889: 2020/11/02(月)22:12 ID:2/AbCXtL(2/2) AAS
>>882
Perl
外部ﾘﾝｸ:paiza.io
890: 2020/11/02(月)23:19 ID:ZpVsHyOp(1) AAS
>>882 JavaScript
const f=(x, y, l) => [x, y].map(i => (i * 2.54 * l / Math.sqrt(x ** 2 + y ** 2)).toFixed(1))
console.log(...f(16, 9, 40))
console.log(...f(64, 27, 29))
console.log(...f(3, 4, 10.2))
891(1): 2020/11/03(火)00:18 ID:1BjkDVvF(1) AAS
>>882
Hadkell
cmpin =2.54
r10 = (/10).fromInteger.round.(*10)
toWH (x, y, sz) = let
arg = atan2 y x
diag = sz * cmpin
in ( r10 $ (cos arg) * diag , r10 $ (sin arg) * diag )
main = mapM_ ( print . toWH) [
(16, 9, 40),
省2
892(7): 2020/11/03(火)01:33 ID:psuX0FGw(1/4) AAS
お題
{1,2,3,4,5,6,7,8}
を幾つかの共通部分を持たない空でない集合にわけるやり方を完全列挙
例えば
{1,6}+{2,8}+{3,4,5,7}
と
{2,8}+{1,6}+{3,4,5,7}
は同じやり方になるので二重カウントしないこと
893(1): 2020/11/03(火)02:32 ID:yN+x511c(1) AAS
>>892
[1..8]は流石にtoo large
haskell
import Data.List
parts [] = [ [ ] ]
parts [x] = [ [ [x] ] ]
parts ( x : xs ) = [ (x : ys) : zs |
ys <- subsequences xs,
zs <- parts $ xs \\ ys ]
main = do
省7
894: 2020/11/03(火)08:10 ID:WKYb8LN0(1) AAS
>>893
きれいだな
895: 2020/11/03(火)09:07 ID:psuX0FGw(2/4) AAS
A:={1,2,3,4,5,6,7,8};
A_1:={A};
A_2:={ {a,b} \subset 2^A | a+b=A,~a+~b=A };
A_3:={ {a,b,c} \subset 2^A | a+b+c=A,~a+~b+~c=A };
A_4:={ {a,b,c,d} \subset 2^A | a+b+c+d=A,~a+~b+~c+~d=A };
A_5:={ {a,b,c,d,e} \subset 2^A | a+b+c+d+e=A,~a+~b+~c+~d+~e=A };
A_6:={ {a,b,c,d,e,f} \subset 2^A | a+b+c+d+e+f=A,~a+~b+~c+~d+~e+~f=A };
A_7:={ {a,b,c,d,e,f,g} \subset 2^A | a+b+c+d+e+f+g=A,~a+~b+~c+~d+~e+~f+~g=A };
A_8:={ {a,b,c,d,e,f,g,h} \subset 2^A| a+b+c+d+e+f+g+h=A,~a+~b+~c+~d+~e+~f+~g+~h=A};
B:=A_1+A_2+A_3+A_4+A_5+A_6+A_7+A_8;
省20
896: 2020/11/03(火)09:10 ID:psuX0FGw(3/4) AAS
美しさだけなら某集合論用処理系に勝る
ものはないと思うが....
>>891の短時間回答能力とHaskelの潜在能力は
驚嘆すべきかも
897: 2020/11/03(火)09:15 ID:psuX0FGw(4/4) AAS
間違ってたときのコード貼ってしまったｗ
~a+~b=A
とかは要らなかったｗ
a+b=A
とかだけでよかった
a \cup bが普通の和集合ね。
898: 2020/11/03(火)21:04 ID:eC8ouzxK(1) AAS
>>882 bat
:: 引数は整数限定。結果は少数第2位を四捨五入。0〜0.04の時のみ少数第2位まで表示
:: 少し大き目の値を与えるとoverflow
@echo off &setlocal enabledelayedexpansion
set /a "x=%1*100, y=%2*100, z=0, d=%3*254, s=x*x+y*y, a=s>>1"
:WHILE
if %a% NEQ %z% set /a "z=a, a=(a+s/a)>>1" &goto :WHILE
set /a w=x*d/a, h=y*d/a
for %%G in (w h) do (
if !%%G:~-1! GEQ 5 set /a %%G+=10
省7
899: 2020/11/04(水)00:20 ID:rxWDSDf0(1) AAS
>>882 Lua
function f(x, y, l)
local a =2.54 * l / (x * x + y * y)^0.5
return x * a , y * a
end
print(string.format("%.1f , %.1f", f(16, 9, 40)))
実行結果
88.6 , 49.8
900: 2020/11/04(水)00:20 ID:kNuSoIVx(1) AAS
windows知らんけど
バッチ・ファイルすげぇなｗｗ
901: 2020/11/04(水)20:24 ID:uO47xEs9(1) AAS
>>892 Ruby
外部ﾘﾝｸ:ideone.com
902: 2020/11/05(木)03:19 ID:EuRO0zRP(1) AAS
>>892
C++
外部ﾘﾝｸ:ideone.com
上下前次1-新書関写板覧索設栞歴
あと 100 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.168s*