多言語でforループを列挙していくスレ

**デフォルトの名無しさん** · 2018/10/30(火) 09:18:52.77

for(i=0;i<N;i++){} //C

**デフォルトの名無しさん** · 2018/11/11(日) 11:18:21.59

間違えた
COBOLです

**デフォルトの名無しさん** · 2018/11/11(日) 12:03:45.61

スレt…
PER FOR M
セーフ

**デフォルトの名無しさん** · 2018/11/11(日) 12:44:14.37

suretiって打ってるの？
スマホならかなフリック入力楽たぞ。
おじさんだけど苦労して覚えてよかった

**デフォルトの名無しさん** · 2018/11/11(日) 13:19:26.19

ならかな

**デフォルトの名無しさん** · 2018/11/11(日) 13:44:01.32

スレで止まってたりスレチまで書いたらネタとして意味不明だろw

**デフォルトの名無しさん** · 2018/11/11(日) 19:28:52.20

メジャーな言語はもっとすんなり列挙されると思っていた

**デフォルトの名無しさん** · 2018/11/11(日) 20:39:24.00

for文自体が古臭いから書く気にもならないんじゃね
カウンタ変数とかできる限り使いたく無いし

**デフォルトの名無しさん** · 2018/11/11(日) 21:13:19.30

でも数字を列挙するだけならカウンタ変数使ったほうが速いんですよ！

とかいうやつがいそうｗ

**デフォルトの名無しさん** · 2018/11/13(火) 14:37:47.34

>>68
原理主義者かよ！w

**デフォルトの名無しさん** · 2018/11/13(火) 14:47:51.42

>>121
HPのプログラム電卓での話か？
ループ命令ISG、DSEを使うより単純な加減算のループ処理の方が断然早い

**デフォルトの名無しさん** · 2018/11/13(火) 15:20:04.64

> HPのプログラム電卓での話か？
そんなわけないだろう

**デフォルトの名無しさん** · 2018/11/13(火) 18:57:31.31

Rebol

for i 0 (N - 1) 1 []

**デフォルトの名無しさん** · 2018/11/13(火) 19:07:41.85

Red

forever [
r: random 10
print r
if r > 5 [break]
]

**デフォルトの名無しさん** · 2018/11/13(火) 19:09:10.76

Red Rebolの後継とか言ってるクセにforそのものはないけどwhileじゃないからセーフ

**デフォルトの名無しさん** · 2018/11/14(水) 00:34:20.56

Z80

LD BC,0x1000
LOOP:
DJNZ LOOP

**デフォルトの名無しさん** · 2018/11/14(水) 01:22:04.01

スレチ

**デフォルトの名無しさん** · 2018/11/14(水) 21:07:32.80

Groovy

for(i in 0..N){}

**デフォルトの名無しさん** · 2018/11/15(木) 06:55:58.16

Java

for(jnt i=0;i<N;i++){}

**デフォルトの名無しさん** · 2018/11/15(木) 20:14:18.37

Octave

for i=1:N do
　　disp([i."'Fizz","Buzz","FizzBuzz"](0^mod(i,3)+0^mod(i,5)*2+1))
endfor

**デフォルトの名無しさん** · 2018/11/15(木) 20:14:45.19

【反日議員団】　立憲枝野はあっち側、おしどりマコ怪しい、国会議員の給与は世界ダントツ５１２０万円
http://rosie.5ch.net/test/read.cgi/liveplus/1542247430/l50

議員年収２２００万円はウソ、騙されるな！

**デフォルトの名無しさん** · 2018/11/16(金) 00:35:21.26

通称 UIマクロ(自作)
(for (i 0 (minus N 1)) (print i))

昔流行ったエキスパートシステムのスクリプトから呼び出す自作のユーザー入出力関係マクロ群
何故かUI部分がシステムに備わってなかったから

流石に誰も知らない自作言語はアウトかw
ネタということで

**デフォルトの名無しさん** · 2018/11/16(金) 20:42:37.48

D

for(jnt i=0;i<N;i++){}

**デフォルトの名無しさん** · 2018/11/17(土) 00:01:55.96

なんてことだ、REXXにはFORが無かった！
DO ～ END ではスレチになってしまう。

**デフォルトの名無しさん** · 2018/11/17(土) 00:54:20.83

REXX

do i=0 for N
say i
end

**デフォルトの名無しさん** · 2018/11/17(土) 10:37:13.43

スレチ

**デフォルトの名無しさん** · 2018/11/17(土) 10:42:42.02

じゃなかったスマン

**デフォルトの名無しさん** · 2018/11/17(土) 11:22:38.44

>>131
>>135
jnt

**デフォルトの名無しさん** · 2018/11/19(月) 17:02:19.24

UWSC

for i=0 to N--1
next

**デフォルトの名無しさん** · 2018/11/21(水) 08:29:48.09

Logo

make "N 7
for [i 0 :N-1][print :i]
bye

**デフォルトの名無しさん** · 2018/11/23(金) 01:20:35.77

Ruby

for i in 0...N do
p i+i/2
end

**デフォルトの名無しさん** · 2018/11/27(火) 10:39:29.13

C#

for(int i=0;i<N;i++){}

**HACHIKO-METAL** ◆SUMETALztQ · 2018/11/27(火) 17:50:37.25

LabVIEW
https://imgur.com/a/45eUsU0

**デフォルトの名無しさん** · 2018/11/27(火) 22:11:52.16

Nim

for i in 0..(N-1):
　echo(i)

**デフォルトの名無しさん** · 2018/11/28(水) 18:05:01.65

Swift

for i in 0..(N-1){}

**デフォルトの名無しさん** · 2018/11/29(木) 18:42:21.48

Ocaml

for i=0 to N-1 do
done

**デフォルトの名無しさん** · 2018/11/30(金) 22:20:56.93

Mathematica

for[i=0;i<N;i++; ]

**デフォルトの名無しさん** · 2018/12/01(土) 12:16:47.99

REDUCE

for i:=0 step 1 until N-1 do

**デフォルトの名無しさん** · 2018/12/02(日) 11:01:44.99

Yacas

For(i:=0,i<N,i++) Echo(i);;

**デフォルトの名無しさん** · 2018/12/02(日) 14:02:35.99

reduceやyacasって知らなかったけど代数計算システムってやつなんだね。
この分野では有名なの？
何てソフトがデファクトスタンダードなの？

**デフォルトの名無しさん** · 2018/12/02(日) 16:03:57.11

そういうことには興味がないのでわかりません

**デフォルトの名無しさん** · 2018/12/02(日) 22:47:15.00

Kuin

for i(0,N-1)
　do cui@print("\{i}\n")
end for

**デフォルトの名無しさん** · 2018/12/02(日) 22:54:22.36

>>154
> 何もプログラムを書かなければ、自動で「Hello, world!」になる。

斬新ｗｗｗｗｗ
Hello, world!出力のコードゴルフなら無双できるｗｗｗｗｗ

**デフォルトの名無しさん** · 2018/12/03(月) 14:00:22.92

>>155
0バイトは流石に草

**デフォルトの名無しさん** · 2018/12/03(月) 18:43:08.57

>>152
Mathematica が(金銭的に)使えない人が他のものを使うイメージ

**デフォルトの名無しさん** · 2018/12/03(月) 19:02:27.47

それってOctaveのイメージだったわ

**デフォルトの名無しさん** · 2018/12/05(水) 18:27:17.43

Yorick

for(i=0;i<N;i++){}

**デフォルトの名無しさん** · 2018/12/05(水) 20:12:53.17

RPL
≪ 0 0 N 1 - FOR I I + ≪ DROP I ≫ NEXT ≫

**デフォルトの名無しさん** · 2018/12/07(金) 08:33:54.40

TypeScript

for(let i:number=0;i<N;i++){}

**デフォルトの名無しさん** · 2018/12/08(土) 02:00:37.51

TypeScript

for(let jap:number=0;jap<N;jap++) document.write(“all jap must be a pervert, and jap is a monkey!! “)

**デフォルトの名無しさん** · 2018/12/11(火) 18:29:48.18

CoffeeScript

for i in [0..(N-1)]

**デフォルトの名無しさん** · 2018/12/15(土) 23:08:12.41

Pascal

for i:=0 to N-1 do

**デフォルトの名無しさん** · 2018/12/20(木) 13:09:45.44

Kotlin

for(i in 0..(N-1)){}

**デフォルトの名無しさん** · 2018/12/22(土) 21:18:07.72

ChucK

for( 0 => int i; i < 4 ; i++ )
{
<<<i>>>;
}

**デフォルトの名無しさん** · 2018/12/22(土) 21:36:06.58

E言語

for key => value in map {}

**デフォルトの名無しさん** · 2018/12/23(日) 18:03:33.50

>>167
iやNはどこいっちゃったの？

**デフォルトの名無しさん** · 2018/12/23(日) 18:56:53.84

>>168
しょうがねーな。

E言語
for i in 1..N {}

**デフォルトの名無しさん** · 2018/12/24(月) 01:38:47.72

i は、0～N-1なんですけど

**デフォルトの名無しさん** · 2018/12/24(月) 05:42:01.00

そんなん言語によるが。
RとかVBAとかやったことない人？

**デフォルトの名無しさん** · 2018/12/24(月) 06:39:33.30

>>171
そんな事理由にならない
全て0～N-1で統一されてる

**デフォルトの名無しさん** · 2018/12/24(月) 13:05:38.44

>>172
じゃあ言語も統一すればｗ

**デフォルトの名無しさん** · 2018/12/24(月) 15:37:39.54

Luaも1ベースインデックスだな。
それはさておき…

Terra

for i = 0,N do
end

**デフォルトの名無しさん** · 2018/12/25(火) 17:11:08.80

繰り返し　&回数 = 1，64, 1
繰り返し終了

自信ないが、桐ってこんな感じだったけど。

**デフォルトの名無しさん** · 2018/12/25(火) 17:54:27.42

スレチ

**デフォルトの名無しさん** · 2018/12/26(水) 06:33:40.54

activebasic

for i=0 to n - 1
next i

**デフォルトの名無しさん** · 2018/12/26(水) 11:06:10.96

Excel 4.0 Macro

=FOR("i",0,N-1)
=NEXT()

**デフォルトの名無しさん** · 2018/12/27(木) 17:13:32.80

hsp

for i,0,n,1
next

**デフォルトの名無しさん** · 2019/01/11(金) 14:08:52.46

Vim Script

for i in range(N)
end for

**デフォルトの名無しさん** · 2019/01/13(日) 22:36:00.33

そろそろタマ切れだ

**デフォルトの名無しさん** · 2019/01/14(月) 03:32:27.23

FORTRAN66のDOループは少なくとも一回は実行される

**デフォルトの名無しさん** · 2019/01/14(月) 19:10:25.11

次に列挙するとしたら
関数定義とかはどうだろう

**デフォルトの名無しさん** · 2019/01/15(火) 08:04:35.13

Rの関数定義

f <- function(a){a+a}

**デフォルトの名無しさん** · 2019/01/15(火) 09:08:24.34

Javascriptの関数定義

function f(a) { return a + a; }

**デフォルトの名無しさん** · 2019/01/15(火) 17:42:58.44

Gnuplotの関数定義

f(a) = a + a

**デフォルトの名無しさん** · 2019/01/15(火) 23:39:44.91

Haskell

f a = a + a

**デフォルトの名無しさん** · 2019/01/16(水) 00:08:23.38

Kuinの関数定義

func f(a:int):int
　　ret a+a
end func

**デフォルトの名無しさん** · 2019/01/16(水) 14:57:11.45

HSP

#module
#defcfunc f int a
return a+a
#global

**デフォルトの名無しさん** · 2019/01/16(水) 17:00:37.94

ただいま各言語の関数定義を列挙中

**デフォルトの名無しさん** · 2019/01/17(木) 00:06:35.13

Jの動詞定義その1
f =: +~

その2
f =: verb define
　　y + y
)

**デフォルトの名無しさん** · 2019/01/17(木) 00:15:01.48

ActiveBasicの関数

function f(a As Long)As Long
return a + a
end function

**デフォルトの名無しさん** · 2019/01/17(木) 01:34:57.12

>>191
相変わらずロックだなぁｗ

**デフォルトの名無しさん** · 2019/01/17(木) 13:12:45.36

Forthのword定義

: f 2 * ;

**デフォルトの名無しさん** · 2019/01/17(木) 13:16:44.92

>>194
他の人の例に合わせると

: f dup * ;

では？

**デフォルトの名無しさん** · 2019/01/17(木) 13:17:44.60

>>195
間違えた

: f dup + ;

**デフォルトの名無しさん** · 2019/01/17(木) 13:48:57.41

> > 195,196
関数定義の例なので中身は何でも構わないのですが
他と合わせた方が比較しやすいかも知れませんね

**デフォルトの名無しさん** · 2019/01/17(木) 18:46:39.78

Racketの関数定義

(define (f a) (+ a a))

**デフォルトの名無しさん** · 2019/01/17(木) 23:25:24.78

簡潔さで Haskell 優勝って思ってたが Forth も短いねぇ

**デフォルトの名無しさん** · 2019/01/18(金) 06:02:20.46

Common Lispの関数定義

(defun f (a) (+ a a))

**デフォルトの名無しさん** · 2019/01/18(金) 12:34:50.14

Ioのメソッド定義

f := method(a, a+a)

**デフォルトの名無しさん** · 2019/01/18(金) 13:01:02.73

関数じゃなく？
それ何のメソッドになるんだろ？

**デフォルトの名無しさん** · 2019/01/18(金) 13:31:56.01

関数定義は無いのでそれに相当するものということで。
何も指定しなければobjectのメソッドになる。

**デフォルトの名無しさん** · 2019/01/18(金) 13:55:41.90

コメントするなら使っている言語の関数定義をくれ

**デフォルトの名無しさん** · 2019/01/18(金) 21:31:19.17

for (auto& it:List){}

**デフォルトの名無しさん** · 2019/01/19(土) 01:33:18.17

何だよｗ

**デフォルトの名無しさん** · 2019/01/19(土) 13:36:32.09

Clojureの関数定義

(defn f [a] (+ a a))

**デフォルトの名無しさん** · 2019/01/19(土) 14:23:38.11

Fortranは徹底的にループの性質を区別(添字依存、添字不依存並列可、投機実行可)して構文用意して見かけ上は完全排除できるな
場合分けが問題か、Doループにif置いてもいいけれども

real :: Rad(0:360) = [ ( deg*pi / 180., deg = 0, 360 ) ]
real,allocatable :: Y(:)sinc(x) = sin(x) / x !文関数定義、本来x=0も1を与えるようfunctionブロックで定義すべき

Y(0) = 1.
Y(1:) = sinc(Rad)
普通の一括処理、添字指定すら面倒なら条件を付けられる
Y = sinc(Rad, Rad .ne. 0)

0だけ場合分けの例で無駄だけど、多いときはWhereマスクが便利だったり
Where( Rad .eq. 0. ) Y = 1.
Where( Rad .ne. 0. ) Y = sinc(Rad)

**デフォルトの名無しさん** · 2019/01/19(土) 14:26:41.44

ForAll投機ループ、明示的に添字も書けるが、実行は順不同なので上から処理されない事に注意
ForAll(x = 1:size(Rad), Rad .ne. 0.) Y(x) = sinc(x)　!OK

ForAll(x = 1:size(Rad), Rad .ne. 0.)
　Y(x) = sin(x)
　Y(x) = Y(x) / x
end　　!順不同なのでアウト

PACK/UNPACで渡すのも便利
pack(Rad, Rad > 0.)

本当に必要な所は滅多にないはずだけど、裸のDoループもタグ付けられて深いネストも非常に読みやすい

row: Do…
　col: Do…
　　…
　end do col
end do row

あとDoにDo Concurrentと添えるだけで並列処理してくれる

糞遅いnumpyから移行しようと思ってて文法見眺めながら書いた初心者なんでおかしいとこあるかも

Fortranはnumpyとソックリ(多分輸入だから)かつ超高機能版って感じだな
勉強するぞ

**デフォルトの名無しさん** · 2019/01/19(土) 14:40:45.59

もはやループといえないけど、FortranはCoArrayが超便利そう、MPI/MP要らず
例えば画像Imgをタイル()とタイルの共配列[]で表す、共配列は別プロセス/スレッドで走る
real, allocatable :: Img(:,:)[:,:]
Img(:,:)[2,3]で2行3列目のタイル(プロセスにある)を取得できる
プロセスを構造化するという発想は無かった

**デフォルトの名無しさん** · 2019/01/19(土) 14:42:53.67

img(10,10)[2,3]はその10行10列目のピクセル

**デフォルトの名無しさん** · 2019/01/19(土) 14:44:56.15

DOを書いたら負け感がある

**デフォルトの名無しさん** · 2019/01/19(土) 14:53:38.15

Fortranは関数定義も修飾子で色々区別する
簡単には文関数～他言語のλ相当
f(x,y) = sin(x)*cos(y)
pureを添えて純粋関数、intent(in/out)で引数返り値を示し、コンパイル時に最適化
elemental宣言(デフォルト)で配列の要素毎演算が自動実装、よってsinc(x)に配列を渡したり、四則演算が数式通りに書ける

以上勉強ノート