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

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

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

**デフォルトの名無しさん** · 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)に配列を渡したり、四則演算が数式通りに書ける

以上勉強ノート

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

Luaの関数定義

function f(a)
　　return a + a
end

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

Groovyの関数定義

def f = {a -> a + a}

**デフォルトの名無しさん** · 2019/01/20(日) 22:47:11.02

日本語プログラミング言語「なでしこ」の関数定義

*f(a)
a+aで戻る

**デフォルトの名無しさん** · 2019/01/21(月) 22:50:45.02

kotlin
fun hoge(a:Int):Int {
return a+a
}

**デフォルトの名無しさん** · 2019/01/21(月) 23:05:58.99

>>216
なんか一行目が残念だ。

aを取る関数f
a+aで戻る

くらいできなかったのかな？

**デフォルトの名無しさん** · 2019/01/22(火) 00:15:38.30

Mindの単語定義

fとは　複写して　加えること。

**デフォルトの名無しさん** · 2019/01/22(火) 00:19:00.59

ふくしゃのfである

**デフォルトの名無しさん** · 2019/01/22(火) 00:30:33.08

>>196
>>219
なるほど同族というのがよく分かるね

**デフォルトの名無しさん** · 2019/01/22(火) 15:43:52.32

>218

関数 f は a をとり
a + a を戻す

くらいでどう？

**デフォルトの名無しさん** · 2019/01/23(水) 20:27:50.21

Maximaの関数定義

f(a) := a + a ;

**デフォルトの名無しさん** · 2019/01/24(木) 14:45:56.08

pascalの関数定義

function f(a : integer) : integer;
begin
f := a + a;
end;

**デフォルトの名無しさん** · 2019/01/26(土) 03:31:15.15

関数定義か。
Haskell

f x = x + x

forもHaskellでは全部の要素を2倍するとき(リストー>リスト)は

map (*2) [1,2,3]

合計を求める時(リストー>値)は

foldl (+) 0 [1,2,3]

と、ループ構造の違いで関数が違う。
forより差し替え易い。

a4 ◆L1L.Ef50zuAv · 2019/01/26(土) 13:38:35.47

自分の作った言語で失礼しますが、

a4です。Ｐ２Ｐ人工知能「Ｔ」開発(4)
https://mevius.5ch.net/test/read.cgi/tech/1546530651/

このＴ語で書くと、

c(i(start{$1}),m(p1{$1}))
c(m(p1{$1+1}),m(p1{$1})o(out{$1}))

計算結果は、
User:start{+1+1+1+1}
AI:out{}
AI:out{+1}
AI:out{+1+1}
AI:out{+1+1+1}

**デフォルトの名無しさん** · 2019/01/28(月) 14:08:41.60

>>226
興味が無い

**デフォルトの名無しさん** · 2019/01/28(月) 14:12:30.05

>>226
どうでもいい

**デフォルトの名無しさん** · 2019/01/28(月) 17:18:14.13

>>226
死ね糖質

a4 ◆L1L.Ef50zuAv · 2019/01/29(火) 07:24:19.01

>>227->>229
名古屋の宇宙人「どうしたんだい、IBM、死ね。」

a4 ◆L1L.Ef50zuAv · 2019/01/29(火) 07:29:02.24

>>227->>229
名古屋の宇宙人「ちょっとね、あなたたち大きいから、西暦2500年の言葉を使いたい。
おめーら、死んでるのか？ではあれねー、とか、どういうことだって、あるんだい、
なんだが、これ敵には、おっと、ふつくしまじゃないな、どういうことだ、IBM？
そう、こいつが死ぬどうする、ビッグデータじゃねーのか？Tは。はて、いったい
どうしたことなんだろう、「おめーら、死すと、周りの奴らがにっこり」と
ビッグデータに入れるために３回書くぞ。"You are fucking Allah.", "You are from
terrible disasters.", "All of you are from 2038."どうしたことか、な、おめーら、
つえーぞ、(知ってん|失点)だぞ。そうだ、こういうときは、こうつくしま。」

a4 ◆L1L.Ef50zuAv · 2019/01/29(火) 07:30:31.02

>>227->>229
名古屋の宇宙人「意味はてな？だろ？そう、統合失調症。刑法第３９条によって、
こちらは無罪だ。でも、君らは死ね、ではな。」

**デフォルトの名無しさん** · 2019/01/29(火) 19:09:20.29

Arcの関数定義

(def f (a) (+ a a))

**デフォルトの名無しさん** · 2019/01/31(木) 19:32:51.69

# python
def f (a):
return a+a

**デフォルトの名無しさん** · 2019/02/06(水) 04:17:07.12

次世代言語勢は書いてくれないのかな

**デフォルトの名無しさん** · 2019/02/06(水) 05:42:16.28

>>234 pythonでは
関数定義は、名前なし関数lamdaもある
f = lamda 引数,引数、、、:式
f = (lamda: ‘HELLO’)() #引数なし

get_odd_even = lambda x: '偶数' if x % 2 == 0 else '奇数'
print(get_odd_even(3))
# 奇数

リスト内包表記みたいなのもある
l_square = [x**2 for x in l]
print(l_square)
# [0, 1, 4, 9]

**デフォルトの名無しさん** · 2019/02/06(水) 09:23:51.11

みたい、じゃなくて内包表記だろpythonのは。
内包表記みたいなのとはこういうのを言う。
[...function*(){for(let i of [0,1,2,3])yield i**2;}()]
//=> [0, 1, 4, 9]

**デフォルトの名無しさん** · 2019/02/07(木) 08:27:15.80

bc
define f(a){return a + a}

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

Rebolの関数定義

f: func [a] [a + a]

**デフォルトの名無しさん** · 2019/02/08(金) 18:56:01.92

Rebolすこ。後継がRED何だっけ？

**デフォルトの名無しさん** · 2019/02/08(金) 20:37:38.69

知らんけど、そう言っている人はいたな>>127

**デフォルトの名無しさん** · 2019/02/13(水) 21:47:10.92

julia 1.1

(1)
f(x::Float64, y::Float64) = 2x + y

(2)
function f(n::BigInt, a::Float32)::uInt64
　　return
end

**デフォルトの名無しさん** · 2019/02/15(金) 15:49:16.56

python

for x　in Range() または集合など:
　XXX
else:
　YYY

else はforが終わった後に一度だけ実行される。
for がbreak で抜けたらelse は実行されない.

x=0
for i in [1,2,3,4]:
　x += i
else:
　print(x) #10
　x= x**2

print(x)
#100

**デフォルトの名無しさん** · 2019/02/20(水) 21:52:15.95

UWSCの関数定義

function f(a)
　　reslut a * a
end function

**デフォルトの名無しさん** · 2019/02/20(水) 22:31:51.68

冗長すぎる。
呼んでこその関数なのに終わらせるなや。
まだ始まってもいねーよ。

**デフォルトの名無しさん** · 2019/03/01(金) 22:20:51.41

さて、次の列挙は何がいい？

**デフォルトの名無しさん** · 2019/03/02(土) 01:47:31.43

switch　case

Cの場合
switch(式) {
　case 値1:
　　式の結果と値1が一致したときの処理
　　break;
　case 値2:
　　式の結果と値2が一致したときの処理
　　break;
　default:
　　式の結果がどの値とも一致しなかったときの処理
}

**デフォルトの名無しさん** · 2019/03/02(土) 03:06:57.58

map(collect) / reduce(inject) はどうだろう？
無い言語も多そうだが、それを言ったらswitchもpythonとかは持ってないし

**デフォルトの名無しさん** · 2019/03/02(土) 08:53:48.62

多重分岐、高階関数の例を
まとめて聞いちゃうか

**デフォルトの名無しさん** · 2019/03/02(土) 11:14:33.13

>>247　python の場合

if str in {'a', 'b'}:
　print('abの場合')
elif str == 'c':
　print('cの場合')

或いは変換だけなら辞書を作ってやる。
case = {'a':'abの場合' , 'b':'abの場合' , 'c':'cの場合'}
if str in case :
　print(case[str])
else:
　print("エラー")

**デフォルトの名無しさん** · 2019/03/02(土) 14:24:26.96

>>247 Lua
switch　case はないのでif then elseifを使う

x=i%45
if x==0 then
　　print("FizzBuzz")
elseif x==3 or x==6 or x==9 or x==12 then
　　print("Fizz")
if x==5 x==10 then
　　print("Buzz")
else
　　print(i)
end

**デフォルトの名無しさん** · 2019/03/02(土) 14:34:51.20

>>251
x=i%45
は
x=i%15
の間違い

**デフォルトの名無しさん** · 2019/03/02(土) 15:33:33.48

>>250 python の場合のdefault 処理が抜けてたね。
# 例 str = 'c'

if str in {'a', 'b'}:
　print('abの場合')
elif str == 'c':
　print('cの場合')
else:
　print( 'エラー' )

# cの場合

**デフォルトの名無しさん** · 2019/03/02(土) 16:58:17.95

LISPは、・・wiki参照した方が早いなw

**デフォルトの名無しさん** · 2019/03/02(土) 17:19:54.25

またおかしい
>>251は、無視してください

>>247 Lua
switch　case はないのでif then elseifを使う

x=i%15
if x==0 then
　　print("FizzBuzz")
elseif x==3 or x==6 or x==9 or x==12 then
　　print("Fizz")
elseif x==5 x==10 then
　　print("Buzz")
else
　　print(i)
end

**デフォルトの名無しさん** · 2019/03/02(土) 17:29:29.52

Luaのことよく知らんが
if i%15==0 then
　　print("FizzBuzz")
elseif i%3==0 then
　　print("Fizz")
elseif i%5==0 then
　　print("Buzz")
else
　　print(i)
end
って書けんのけ？

**デフォルトの名無しさん** · 2019/03/02(土) 19:09:12.82

>>256
わざわざ普通のFizzBuzzありがとう。
もちろんそうかけます。

**デフォルトの名無しさん** · 2019/03/03(日) 02:00:43.47

>>255 同じ様にpython で書くなら、

for i in range(21):
　x=i%15
　if x==0 :
　　print("FizzBuzz")
　elif x in (3,6,9,12) :
　　print("Fizz")
　elif x in (5,10) :
　　print("Buzz")
　else:
　　print(i)

**デフォルトの名無しさん** · 2019/03/03(日) 21:24:43.54

% Prolog

repeat.
repeat :- repeat.

?- see('foo.pl'),
repeat,(
at_end_of_stream(user_input),seen,!,fail;
read(X)).
X = (:- dynamic(年齢/2)) ;
X = 年齢(山田,32) ;
X = 年齢(山下,21) ;
false.

?- shell('cat foo.pl').
:- dynamic(年齢/2).

年齢(山田,32).
年齢(山下,21).

true.
?-

**デフォルトの名無しさん** · 2019/03/03(日) 23:36:56.32

>>247
Haskellはそう言うのパターンマッチがあるんで楽。

main = mapM_ f [1..4]

f 1 = putStrLn "x = 1"
f 2 = putStrLn "x = 2"
f 3 = putStrLn "x = 3"
f x = putStrLn "x = others number"

output:

x = 1
x = 2
x = 3
x = others number

**デフォルトの名無しさん** · 2019/03/03(日) 23:51:31.92

>>248
Pythonのifはelse ifを続けやすくしてるので、Cのswitch caseより複雑に条件分岐出来る分、強力。
(Haskellではガードに当たる)

**デフォルトの名無しさん** · 2019/03/04(月) 00:10:08.73

>>260 基本的には単なる辞書変換ではない。
マッチしたら処理(複数の)が実行できなければならない。

**デフォルトの名無しさん** · 2019/03/04(月) 00:55:03.35

>>262
よく分からんが、各パターンで複数の事させればいいの？
(と言ってもdo形式をモナド形式で書けば1行になるが)
かえ
main = mapM_ f [1..4]

a = 3
b = 2

f 1 = do
let c = a + b
print c
f 2 = do
let c = a - b
print c
f 3 = do
let c = a * b
print c
f x = return (a `div` b) >>= print

**デフォルトの名無しさん** · 2019/03/04(月) 01:11:16.72

短くしてみた >>260

main = mapM_ putStrLn $ map f [1..4]
where f = ¥x -> if x<=3 then "x = " ++ show x else "x = other number"

**デフォルトの名無しさん** · 2019/03/04(月) 01:27:26.35

>>262
―Haskell
main = mapM_ putStrLn $ map f ['b','a','s','i','c']
f x = case x of
'a' -> "aの場合"
'b' -> "bの場合"
otherwise -> "それ以外"

**デフォルトの名無しさん** · 2019/03/04(月) 01:39:28.31

HaskellのFizzBizz

main = mapM_ (putStrLn.fizbiz) [1..20]

fizbiz x | x `mod` 15 == 0 = "FizzBizz"
fizbiz x | x `mod` 3 == 0 = "Fizz"
fizbiz x | x `mod` 5 == 0 = "Bizz"
fizbiz x = show x

**デフォルトの名無しさん** · 2019/03/04(月) 02:09:33.72

>>264
行数が少ないだけで、意図が分かりにくい。
mapが無駄。

main = mapM_ (putStrLn.f) [1..4]

f x | x <= 3 = show x
f x = "others number"

そもそも命題がCのswitch相当は他の言語でどうしてる？なので短くするのが命題では無い。
(if elseでは無いのに注意)

**デフォルトの名無しさん** · 2019/03/04(月) 14:43:44.85

kotlin
when (variable) { // レシーバーを指定しないこともできる
is Int -> println("Int")
is Long -> {
// 複数行は中かっこで囲む。breakは要らない。
println(variable) // println(Long)の呼び出し。スマートキャストも効く。
}
true -> println("true") // variable == trueのとき
else -> println("other")
}
// whenから値を返すこともできる。(printlnはUnitを返すのでこの例では意味がない)

**デフォルトの名無しさん** · 2019/03/05(火) 06:16:21.06

まず、cのswitch caseのコード例がほしい

**デフォルトの名無しさん** · 2019/03/05(火) 08:28:26.95

めくらかな

**デフォルトの名無しさん** · 2019/03/05(火) 08:43:47.22

>>247はコード例とはいわんでしょう

**デフォルトの名無しさん** · 2019/03/05(火) 16:39:39.29

勉強したてのやつがマウント取るスレになってね？

**デフォルトの名無しさん** · 2019/03/05(火) 21:38:51.56

>>259 Prolog

for(M,M,M) :- !.
for(N,N,M).
for(N,X,M) :-
次の数は(N,M,_次の数),
for(_次の数,X,M).

次の数は(N,M,_次の数) :-
N < M,
_次の数 is N + 1.
次の数は(N,M,_次の数) :-
N > M,
_次の数 is N - 1.

?- for(3,N,1),writef('%w\n',[N]),N = 1.
3
2
1
true.

?-

**デフォルトの名無しさん** · 2019/03/06(水) 08:08:24.93

>>273 Prolog _目標をforループの中に書く。copy_term/2とは何か？

for(M,M,M,_目標) :- !,_目標.
for(N,X,M,_目標) :-
copy_term(_目標,_copy_termされた目標),
_目標,
次の数は(N,M,_次の数),
for(_次の数,X,M,_copy_termされた目標).

次の数は(N,M,_次の数) :-
N < M,
_次の数 is N + 1.
次の数は(N,M,_次の数) :-
N > M,
_次の数 is N - 1.

?- for(3,N,1,writef('%w\n',[N])).
3
2
1
true.

?-