エントリーは、Perl、PHP、Python、Ruby、JavaScript・・・
さあ、死ぬまで語りやがれ！！！
■LLとは？
軽量プログラミング言語（Lightweight Language,LL）とは、取り回しに優れ、
コードの作成や修正が容易と見なされるプログラミング言語のことを指す。
ここでいう「軽さ」はプログラマの負担の軽重を指し、
実行速度に優れているという意味ではない。
現在の水準では
・インタプリタ
・動的型
・正規表現
・クロージャ
などを利用できるものがLLと呼ばれることが多い。
ただし、他人の同意を得られるとは限りません。
長いコードはここで
ttp://play.island.ac/codepaste/
【Perl,Python,PHP】LL ﾊﾞﾄﾙﾛﾜｲﾔﾙ 27【JS,Ruby】
http://toro.2ch.net/test/read.cgi/tech/1349545643/
JSのコードは一つも無かったな
スレタイにも入ってるのに……
おつ！
乙
戻る方法ってありますか？
１行戻る方法
なんかウザいです
どんどん進んだり間違ってタイプミスしたら終了します
たすけてください
おしえてください
未だにperlでソフトウェアやスクリプトを書くなんて、
何かの拷問だとしか考えられない。
一体、前世でどんなに悪いことをやらかしたんだろう。
c++やjavaが上位に来る理由について考えた方が良い
githubでのjavascriptの登録件数がrubyを越えた理由についても、少しは考える必要がある。
[1, 2, 3, 4, 5, 6, 7]のようなリストを
次のような表に整形して出力せよ
<table>
<tr><td>1</td><td>2</td><td>3</td></tr>
<tr><td>4</td><td>5</td><td>6</td></tr>
<tr><td>7</td><td> </td><td> </td></tr>
</table>
何のヒネリも無いんだもん
@Mathematica
formatList[lst_] := lst //
PadRight[#, Length[#] + 3 - Mod[Length[#], 3], "x"] & //
Partition[#, 3] & //
ToString //
StringReplace[#, {
"{{" -> "<table>¥r<tr><td>",
"}, {" -> "</td></tr>¥r<tr><td>",
", " -> "</td><td>",
"}}" -> "</td></tr>¥r</table>",
"x" -> " "}] &;
In := formatList[{1, 2, 3, 4, 5, 6, 7}]
Out = (省略)
投稿したら自動的に変換されちゃった。
Haskell
f _ [] = []
f n xs = take n (map show xs ++ repeat " ") : f n (drop n xs)
h = mapM_ (putStrLn.("<tr>"++).(++"</tr>").(concatMap $ ("<td>"++).(++"</td>")))
main = putStrLn "<table>" >> (h.f 3) [1..7] >> putStrLn "</table>"
; Common Lisp
(let ((list '(1 2 3 4 5 6 7)))
(format t "<table>~%~{<tr>~3@{<td>~:[ ~;~:*~d~]</td>~}</tr>~%~}</table>~%"
(concatenate 'list list (make-list (- 3 (mod (length list) 3))))))
; Common Lisp
; >>16は3で割り切れるとき、駄目だったので訂正。
(let ((list '(1 2 3 4 5 6 7)))
(format t "<table>~%~{<tr>~3@{<td>~:[ ~;~:*~d~]</td>~}</tr>~%~}</table>~%"
(concatenate 'list list (make-list (abs (mod (length list) -3))))))
言語の種類が増えると何か困るのか？
他人を邪魔して困らせるのも競争の一つだ
だれにも邪魔されない競技を望むのは甘い
>>17 を参考に、
@Mathematica（改定版）
formatList[lst_] := lst //
PadRight[#, Length[#] + Abs[Mod[Length[#], -3]], " "] & //
Partition[#, 3] & // ToString //
StringReplace[#, {
"{{" -> "<table>¥r<tr><td>",
"}, {" -> "</td></tr>¥r<tr><td>",
", " -> "</td><td>",
"}}" -> "</td></tr>¥r</table>"}] &;
考える参考にしたいので>>11をお願いします
Perl
my @list = (1..7);
print "<table>\n";
foreach my $i (0..$#list / 3){
"<tr>",
map("<td>" . ($list[$i * 3 + $_] // " ") . "</td>", (0..2)),
"</tr>\n";
}
print "</table>\n";
def make_table(ary, ncolumns = 3)
p ary
puts "<table>";
while ary.any?
print "<tr>";
ncolumns.times do
print "<td>#{ary.shift || " "}</td>"
end
puts "<tr>";
end
puts "</table>";
end
make_table [1, 2, 3, 4, 5, 6]
make_table [1, 2, 3, 4, 5, 6, 7]
make_table [1, 2, 3, 4, 5, 6, 7, 8]
#ruby
list = [1,2,3,4,5,6,7]
puts "<table>"
list.each_slice(3){|a,b,c|
b ||= " "
c ||= " "
puts "<tr><td>#{a}</td><td>#{b}</td><td>#{c}</td></tr>"
}
puts "</table>"
Python
lst = [1,2,3,4,5,6,7]
lst = lst + [" "] * ((3-len(lst))%3)
print('<table>')
for x in (lst[n:n+3] for n in range(0,len(lst),3)):
print('<tr>%s</tr>' % ''.join('<td>%s</td>' % n for n in x))
print('</table>')
var arr = [1, 2, 3, 4, 5, 6, 7], n = 3, s = '';
for (var i = 0; i < arr.length; i += n) {
var row = arr.slice(i, i + n);
for (var j = row.length; j < n; j++) { row.push(' '); }
s += '<tr>' +
row.map(function (v) { return '<td>' + v + '</td>'; }).join('') +
'</tr>\n';
}
s = '<table>\n' + s + '</table>'
console.log(s);
>>12
確かにつまらない
けど、回答も酷いの多いからバランスは取れてるんだろう
'' == '0' // false
0 == '' // true
0 == '0' // true
3 + '2' // 32
3 - '2' // 1
parseInt(0 + '9') // 0
parseInt(0 - '9') // -9
0 + '9' => '09'
だから、キャストと+演算子の仕様はおかしく思わないけど
parseInt()はハマるね。
[regex]::Matches( (1..7+,"＆nbsp;"*2) -join ",", '(\d+,){1,3}(,?＆nbsp;)*') |
% { ($_.value -split ',')[0..2] -join '</td><td>' } |
% { "<table>" } { "<tr><td>$_</td></tr>" } { "</table>" }
JavaScripterはたいてい「JavaScript: The Good Parts」を読んでるから
そういう面白いことはしないんだな
ノウハウは暗記すれば覚えられるから、
地頭が悪い子でも新人君に大きい顔が出来る。
1 == [1] // true
[1] == [1] // false
1 === 1 // true
1 === [1] // false
[1] === [1] // false
def make_table(list, n = 3)
(
['<table>'] +
list.each_slice(n).map { |cols|
'<tr>' + cols.map { |col| "<td>#{col.to_s}</td>" }.join + '</tr>'
} +
['</table>']
).join("¥n")
end
puts make_table([1,2,3,4,5,6,7])
ウィルソンの定理を使って素数を判定する関数is_primeを実装し、
10000以下の素数以外の数の和を求めよ
ウィルソンの定理
pが素数 <=> (p-1)!+1 (mod p) == 0
Python
def fact(n, memo={}):
if n == 0: return 1
if n not in memo:
memo[n] = n * fact(n-1, memo)
return memo[n]
def is_prime(n):
return fact(n-1) % n == n-1
print(sum(x for x in range(1,10001) if not is_prime(x)))
今のところさっぱりだが。
簡単すぎてつまらないでしょうが>>33もお願いします
@Mathematica
notPrimeSum[nmax_] := Module[{isPrime},
isPrime[n_] := Mod[Factorial[n - 1] + 1, n] == 0;
Range[1, nmax] // Map[If[isPrime[#], 0, #] &, #] & // Total];
In := notPrimeSum[10000]
Out = 44268603
isPrime n = fact !! (fromInteger (n-1)) `mod` n == n-1
fact = 1 : zipWith (*) fact [1..]
main = print . sum $ filter (not.isPrime) [1..10000]
出力
44268603
間違えた...もう一度Haskell
isPrime 1 = False
isPrime n = fact !! (fromInteger (n-1)) `mod` n == n-1
fact = 1 : zipWith (*) fact [1..]
main = print . sum $ filter (not.isPrime) [1..10000]
出力
44268604
だから1も素数に含めて良いんじゃないの？
; Common Lisp
(defun primep (l)
(labels ((fact (m &optional (n 1))
(if (zerop m)
n
(fact (1- m) (* m n)))))
(zerop (mod (1+ (fact (1- l))) l))))
(loop for x from 1 to 10000
unless (primep x)
sum x)
Perl
use List::Util qw(sum);
use bigint;
my @memo = (0 => 1);
sub fact {
my ($n) = @_;
return $memo[$n] //= $n * fact($n - 1);
}
sub is_prime {
my ($n) = @_;
return (fact($n - 1) + 1) % $n == 0;
}
print sum grep{ not is_prime $_ } (1..10000);
Python http://ideone.com/ShjbMd
Haskell http://ideone.com/Oqj1MG
Common Lisp http://ideone.com/j2gR36
Perl http://ideone.com/SMtYZs
メモ化しても多倍長演算が遅いと遅い
def fact_mod(n, m)
return 1%m if n == 0
prod = 1
(1..n).each{|k|
prod = prod*k % m
return 0 if prod ==0
}
prod
end
def is_prime(n)
return (fact_mod(n-1, n)+1)%n == 0
end
puts (2..10000).select{|k| !is_prime(k) }.inject(&:+)
Squeak Smalltalk で。
| fact isPrime |
fact := nil.
fact := [ | memo |
memo := Dictionary new at: 0 put: 1; yourself.
[:n | memo at: n ifAbsentPut: [n * (fact value: n-1)]]] value.
isPrime := [:n | (fact value: n-1) \\ n = (n-1)].
(1 to: 10000) inject: 0 into: [:sum :m | sum + ((isPrime value: m) ifTrue: [0] ifFalse: [m])]
Haskellで>>48を参考に、メモ化を無くして並列化してみた
import Control.Parallel.Strategies
import Data.Maybe
factMod = factMod' 1 where
factMod' p 0 n = p
factMod' p m n = case p*(n-m) `mod` n of
0 -> 0
q -> factMod' q (m-1) n
isPrime :: Int -> Bool
isPrime n = factMod (n-1) n `mod` n == n-1
main = print $ sum $ catMaybes $
parMap rseq (\p -> if isPrime p then Nothing else Just p) [1..10000]
:- dynamic(階乗保存計算/2).
'ウィルソンの定理を使って素数を判定する関数is_primeを実装し、10000以下の素数以外の数の和を求めよ
ウィルソンの定理とは pが素数 <=> (p-1)!+1 (mod p) == 0'(_10000以下の素数以外の数の和) :-
findsum(_p,(
between(1,10000,_p),
\+(is_prime(_p))),
_10000以下の素数以外の数の和).
is_prime(_p) :- 'ウィルソンの定理とは pが素数 <=> (p-1)!+1 (mod p) == 0'(_p).
'ウィルソンの定理とは pが素数 <=> (p-1)!+1 (mod p) == 0'(_p) :-
Y is _p - 1,
階乗保存計算(Y,Z),
0 is (Z + 1) mod X,!.
階乗保存計算(0,1) :- !.
階乗保存計算(1,1) :- !.
階乗保存計算(N,X) :-
N2 is N - 1,階乗保存計算(N2,Y),X is N * Y,
asserta((階乗保存計算(N,X) :- !)).
findsum(_選択項,_項,_合計値) :-
findall(_選択項,_項,_値ならび),
sum(_値ならび,_合計値).
sum([],0).
sum([N|R],S) :-
sum(R,S1),
S is S1 + N.
Cだとintのオーバーフローは未定義
Javaでも演算が無事完了する保証があるだけで、値に関しては何も述べてない
そういう怪しい世界に突入せずに済む
R言語使いの負け惜しみワロタ
つまらない問題を量産して負け惜しみを言わせれば勝てる
勝負にこだわるやつは良い出題者になれない
まあその辺の言語の基本型は、代わりにビット演算が比較的素直かなとは思う
未だに原因が分からない
Y is _p - 1,
階乗保存計算(Y,Z),
0 is (Z + 1) mod _p,!.
% 一番最後の mod X は誤りでした。Xを全部_pに直したのだが
% そこだけ残ってしまった。
何でその言語を使ってるの？
気に入ったプロジェクトがあればPull Requestを送り、
Haskellを勉強し、Pythonのブログを書いていたとしても、
俺は依然として無職だし、Windowsでメモ帳でPHPを書いていても仕事は貰える！！
仕事探せ
そこに言語があるから
http://gihyo.jp/dev/serial/01/codeiq/0001
簡単なビット処理なのでLLでライブラリ使用可なら十数行で書けそう
締め切りも過ぎたし、盗用投稿やネタバレの心配も無用かと
【お題】
1. http://dl.dropbox.com/u/110505645/CodeIQ/20121129/embedded.png を読んで
2. この画像に繰り込まれた文字列を抽出して返すコードを書きやがれ！
3. 余力があれば任意画像に任意文字列を繰り込んで吐き出すコードも書いとけ
犯罪臭のするお題だなぁ
tEXtチャンクを抽出すれば良いの？
9割以上解析だけど、時間切れで余力なし。Python 2.7/PIL
ideone.com/mUBLes
>>68
犯罪？はないと思うけど、悪用可能だったりするの？それともモラル的な問題？
サイトの規約とかは読んでないので、何か問題あるようだったら削除申請よろしく
話の流れから、ビット処理、ステガノグラフィー
Squeak Smalltalk で
| url stream image decode |
url := 'http://dl.dropbox.com/u/110505645/CodeIQ/20121129/embedded.png'.
stream := HTTPClient httpGet: url.
image := ImageReadWriter formFromStream: stream.
decode := [:px | (px >> 11 bitAnd: 224) + (px >> 5 bitAnd: 24) + (px bitAnd: 7)].
^((image bits asArray collect: decode) upTo: 0) asByteArray asString convertFromEncoding: #utf8
=> '漢字、カタカナ、ひらがなの入ったPNG。
'
手段としてはメリット薄いぞ
生残るためには、せめてpythonかjava
いろいろって例えば？
一部の仕事をするのに手っ取り早くても、今のところ他のことに使えない。
デザイナーって
UIレベルだと競合増えるの明らかで、生存するには自然言語処理だの機械学習だの方面じゃない？
他に、もっとオイシイ分野ある？
お金が稼げるという意味なら
仕事があるJavaScriptの方がオイシイだろ。
3dのモデラーとか2dのイラストレーター
Rubyはもともとそーゆーユーザーアプリケーションを作るようなプログラミング言語ではありません
どちらかというとシェルスクリプトに近い
コンピュータなんかおもちゃ
核兵器なんかおもちゃ
決め付けって素晴らしいねw
そういう用途にはpythonがおすすめ
無理にrubyでやろうとするのがアホ
隠さずに言うと、オブジェクト指向なんかおもちゃ
無理にオブジェクト指向でやらない
彼らの話てた第一級関数ってなんだよ。
そして地獄の底から帰ってきたおっさんの復讐を後押しするおいしい分野
python使った方がカバレッジする領域ひろいじゃない
jsは、決定打になってもwebアプリとスマホに閉じられそう
ここに統計周りのライブラリとユーザーアプリが作られたなら、
いよいよ終わりのときが来たって、もう何も考えないけれど
おまえプログラミング言語勉強する前に日本語勉強しろよ
意味不明なんだよｗ
バカ ってのが述語だ つまり、おまえはバカだと言ってるわけだ
理解できる？
このスレのどこにバカって書いてある？
>>95で初めて出てきた単語なんだから
述語がないというのは正しいだろ
Pythonはオイシイ分野で使えるアプリケーションがあるので生き残るが、
RubyやPHPは死ぬ。Python最強。
おいしいといって>>81が出したJavascriptはWebアプリとスマホにしか使われないだろう。
もし仮に統計ライブラリとユーザーアプリが作られたらLL戦争にも終わりが来たと思って、
何も考えずにJavascriptを使うことになるだろうな。
ということか？ 分かってねえな、最後に生き残るのはLISPなんだよ。
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
自然言語処理スレッド その３ (641)
VBプログラマ質問スレ（Ver.6.0 まで） part60 (688)
なぜポインタで引っかかる人が多いのか (1001)
懐かしきベーマガの面白かった投稿プログラムを語る (774)
Rubyについて Part48 (212)
GARMIN社のGPSのプログラム (652)
--log9.info------------------
【赤い旋風】帝京大学ラグビー部【全国制覇】 (770)
【NZ代表】ALL BLACKS総合スレ29【不敗記録へ】 (546)
≡☆☆☆☆ 近鉄ライナーズ Part26 ☆☆☆☆≡ (692)
ラグビー日本代表145 (737)
法政大学ラグビー部72 (969)
◇◇神戸製鋼Steelers応援スレ52◇◇ (568)
【早明戦他】平林レフリーの異常なジャッジ検証スレ (309)
【名門】日本体育大学【復活】 (552)
【松尾?元木?】明治大学ラグビー部144【それとも?】 (429)
【青北】青森県の高校ラグビー【一強】 (358)
【湘南の風】東海大学ラグビー部【第29章】 (803)
東福岡ラグビー部 Ⅳ (955)
筑波大学ラグビー部5 (502)
【三重県】四日市農芸Part3【下村監督】 (363)
天理大学ラグビー部★２ (853)
【高校】大阪ラグビー総合【大阪】 (976)
--log55.com------------------
【バーチャルYouTuber】.LIVEアイドル部アンチスレ#10399【アップランド】
【元N国党】さゆふらっとまうんど応援スレ Par126【四街道市議選】【前橋】【新田雅哉】【カモフラ】
【バーチャルYouTuber】.LIVEアイドル部アンチスレ#10399【アップランド】
【バーチャル】hololiveアンチスレ#3687【youtuber】
【バーチャル】hololiveアンチスレ#3686【youtuber】
【バーチャル】hololiveアンチスレ#3688【youtuber】
【バーチャルYoutuber】にじさんじ有ンチスレ16035【zhの新衣装で萌えるスレ】
【バーチャルYoutuber】にじさんじ有ンチスレ16036【え、ちょっと待ってホント好きなんだけど】
