トップページ⇒tech
1001コメント388KB

【激突】関数型言語 VS オブジェクト指向言語2

■ このスレッドは過去ログ倉庫に格納されています
0001営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:26:47.61
一般的には、オブジェクト指向型言語が優勢でが
一部には関数型言語を崇拝している人もいます

どちらが上なのか、この際はっきりさせましょう

前スレ http://toro.2ch.net/test/read.cgi/tech/1331328955/
0002営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:27:35.64
オブジェクト指向 ∋ (関数型言語 VS 手続き型言語)
http://toro.2ch.net/test/read.cgi/tech/1333801632/
0003営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:29:47.00
前スレ>>1000
> それならそれでFILTERでも変更できるインターフェースを付け加えればいいだけ。

そういう変更/拡張のし易さも議論の対象
ちゃんと変更したコードを提出しないと比較にならない
負け惜しみじゃないんだろ?
0004営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:35:39.48
>>3
本来はフィルタでやることではないよ。
それわかってる?
0005営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:37:53.28
まあやるなら、

class Filter {
 private i = 0;
 private m = 0;

 begin(awk) {awk.RS=';'}
 filter(line) {i++; m = max(m, line.length()); }
 end() {print "最大文字数は"+m+"文字でした"}
}

こんな感じだろうw
0006営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:39:53.53
>>4
いいから「改行コードを変更する拡張をする」に対して
OOPでやるとどれくらい簡潔になるか、コードを出せって
疑似コードじゃなくて動くヤツな
0007営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:41:05.68
beginの引数が変わるのが好ましくない場合は
こんな感じかな。まあこの例ならsetuupでやればいいことだけど。

class Filter {
 private i = 0;
 private m = 0;
 private awk;

 setup(awk) {this.awk = awk}
 begin() {awk.RS=':'}
 filter(line) {i++; m = max(m, line.length()); }
 end() {print "最大文字数は"+m+"文字でした"}
 teardown() {this.awk = null}
}
0008営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:41:31.13
>>5
肝心の部分はどうしたんですか?
どうやってセパレートしたんですか?

そうやって誤摩化すってことは、関数型言語で一瞬で書けるコードが
OOPでは難しいってことですね?
0009営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:42:07.17
>>6
OOPでやると簡潔になるんじゃなくて、
変更の範囲を極小化出来るんだよ。

該当のフィルタだけの修正で、
それ以外の場所は何も変えないで変更できる。
0010営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:42:59.33
いいから代表的なコードは貼りなおせよ
使えないな
0011営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:43:29.55
>>8
え? 行フィルタなのに、ファイル全体をセパレートするのはおかしいでしょ?
ここにないのは、ここにあるべきじゃないコードだからだよ。
0012営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:43:49.61
じゃあ、問題をはっきりさせよう

「標準入力から文字列を読み込んで、カンマ区切りで改行して、
各行の文字数を数えて最大文字数を標準出力に表示せよ」

これを書いて
0013営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:45:14.12
設計がおかしいって指摘されて
ファビョってきたなw
全部関数なんかでやろうとするから
設計ができないんだ。
0014営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:46:27.84
>>12
それ問題が不適切。

「標準入力」から文字列を読み込んで、「カンマ区切りで改行」して、
「各行の文字数を数えて最大文字数」を「標準出力」に表示せよ

ただし、カッコの中は一例であり
容易に変更できる設計にしておくこと
0015営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:47:53.75
○から文字列を読み込んで、△で改行して、
各行に対して□を処理をして、その結果を☆に表示せよ

抽象化するとこんな感じか。
0016営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:49:26.82
またこういう例題か…
オレ何度も書いたし、もういいや今日は。
0017営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:50:59.80
コードが出ても議論が進まないことがはっきりしただけかw
0018営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:51:11.25
まず、リーダーインターフェースが必要。
そのリーダーインターフェースを実装した、
標準出力リーダークラスを作る。

行セパレータインターフェースが必要
その行セパレータインターフェースの実装として、
\r\nセパレータを作る

その後フィルタインタフェースが必要で
そのフィルタインタフェース(begin、filter、end)を実装した、
「各行の文字数を数えて最大文字数」はfilterで文字数を数えて
endで結果を出力する。

あとは、同様にライタインターフェースを実装した
標準出力ライタクラス。
0019営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:51:29.89
どうせなら、parottをJapaで書いたらこーんなに見通しのよいプログラムが短期間でできましたよ
とかそんくらいの成果聞いてみたいもんだわ
0020営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:52:01.14
結局拡張性をもたせようとすると、
こんな感じになるわけ。

例外が悪いという意味がわかったかな?
0021営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:53:56.24
能書きからして冗長までは良くわかった。
0022営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:54:17.31
関数型は実装の一つを書いているだけ。

オブジェクト指向は様々な実装を書くための仕組みを
提供するもの、つまり設計の部分なので
やることの対象が違うんだよ。

オブジェクト指向で枠組み設計を行い
関数型言語でその枠組みの中身を書く
0023営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:55:34.83
冗長というか、単にオブジェクト指向は、単処理よりも
広範囲な部分、処理の連携部分を記述する言語ってことなだけでしょ。
0024営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:57:26.44
この程度の例題で広範も減ったくれもない気がす
0025営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 21:58:48.39
>>22
> オブジェクト指向で枠組み設計を行い
> 関数型言語でその枠組みの中身を書く

こんな感じ?


{-# LANGUAGE RecordWildCards #-}
import System
import Control.Monad

data Filter a b = Filter { begin :: a, body :: a -> String -> b, end :: b -> IO () }

awkLike Filter{..} = end . body begin

countFilter = Filter {
              begin = Nothing,
              body = \_ -> maximum . map length . lines,
              end = \p -> putStrLn $ "最大文字数は" ++ show p ++ "文字でした"}

splitBy _ [] = []
splitBy p xs = a : (splitBy p $ drop 1 b) where (a, b) = break p xs

countFilterSplitBy sep filepath = countFilter {
  body = \_ -> maximum . map length . splitBy (== sep),
  end = \p -> writeFile filepath $ "最大文字数は" ++ show p ++ "文字でした"
}

main' = awkLike countFilter =<< getContents -- 例1: 標準入出力使用、普通にカウント
main = mapM_ (awkLike (countFilterSplitBy ',' "test.txt") <=< readFile) =<< getArgs -- 改行コードを変えて入出力先も変更
0026営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 22:00:33.04
>>25
おー、なかなか。パチパチ
0027営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 22:04:02.78
なんかお株奪われた?
0028営利利用に関するLR審議中@詳細は自治スレへ2012/04/07(土) 22:37:31.82
>容易に変更できる設計にしておくこと

ソースにパッチを当てて変更するのは容易ではないの?
パッチが容易ではないというのは、もしかして
「CUIは容易ではない」「GUIは容易」みたいな思想と関係あるのか
0029営利利用に関するLR審議中@詳細は自治スレへ2012/04/08(日) 00:08:18.23
> ソースにパッチを当てて変更するのは容易ではないの?
ソースにパッチ当てるといってもいろんな意味がある。

インターフェースを変更するようなソースの修正は容易ではない。
影響があちこちに波及するからだ。
■ このスレッドは過去ログ倉庫に格納されています