1-100の足し算を一番ひどいコードで書いた奴が優勝

1 ：仕様書無しさん：2014/03/17(月) 01:57:59.72 .net

バッドノウハウ共有。
言語名は必須。
とりあえず何も考えずに。

C#
int sum = 0;
for(int i = 1; i <= 100; ++i)
{
　　sum += i;
}

374 ：仕様書無しさん：2015/02/25(水) 18:23:17.86 .net

;68Kアセンブリ言語 貴方はきっと書き直したくなる
MOVE.L #UB,$1C
CLR.B D0
CLR.B D1
MOVE.B #100,D2
L1:
ADD.B D2,D0
TRAPV
SUB.B #1,D2
CMP.B #0,D2
BNE L1
MOVE.B D0,KOTAE
MOVE.B D1,KOTAE+1
STOP
UB:
ADD.B #1,D1
RTE
ANS: DS.W 1

375 ：1/2：2015/03/22(日) 15:46:22.01 .net

//お題：1-100の足し算
//言語：C
//まともに動くかわからん
#include <stdio.h>
int main(void){
int i=0;
int j=0;
int k=1;
int l=1;
char zyuu[10]={1,2,3,4,5,6,7,8,9,10};
char nizyuu[10]={11,12,13,14,15,16,17,18,19,20};
char sannzyuu[10]={21,22,23,24,25,26,27,28,29,30};
char yunnzyuu[10]={31,32,33,34,35,36,37,38,39,40};
char gozyuu[10]={41,42,43,44,45,46,47,48,49,50};
char rokuzyuu[10]={51,52,53,54,55,56,57,58,59,60};
char nanazyuu[10]={61,62,63,64,65,66,67,68,69,70};
char hatizyuu[10]={71,72,73,74,75,76,77,78,79,80};
char kyuuzyuu[10]={81,82,83,84,85,86,87,88,89,90};
char hyaku[10]={91,92,93,94,95,96,97,98,99,100};

376 ：2/2：2015/03/22(日) 15:46:49.71 .net

switch (l){
case zyuu[k]:
i=i+zyuu[j];
j=j+k;
l=l+k;
case zyuu[k+k]:
i=i+zyuu[j];
j=j+k;
l=l+k;
case zyuu[k+k+k]:
//（中略）
}
j=k-k;
switch(l){
case nizyuu[k]:
i=i+nizyuu[j];
j=j+k;
l=l+k;
//（中略）
}
//（中略）
switch(l){
//（中略）
}
printf("%d\n",i);
return k-k;
}

377 ：仕様書無しさん：2015/05/04(月) 18:38:05.91 .net

>>158
' Excel VBA

Sub sum(startValue As Integer, endValue As Integer)
Dim wb As Workbook
Set wb = ThisWorkbook
Dim ws As Worksheet
Set ws = wb.Worksheets("Sheet1")

ws.Columns(1).Clear
Dim i As Integer
For i = startValue To endValue
ws.Cells(i - startValue + 1, 1).Value = i
Next i
ws.Cells(i - startValue + 1, 1).Formula = "=SUM(A1:A" & endValue - startValue + 1 & ")"

MsgBox "答えは A" & endValue - startValue + 2 & " を見て！"
End Sub

378 ：仕様書無しさん：2015/06/08(月) 23:37:59.55 .net

// Java だいたいの場合、だいたい合っている。

int innerCount = 0; // ランダムに取った点のうち y = x + 0.5 と x軸の間にある点の数
double answer = 0; // 推定値

// 1,000,000 回ループしてランダムな点を 0 <= x <= 100 、0 <= y <= 200 で生成
for(int i = 0 ; i < 1000000 ; i++) {
double dx = Math.random() * 100;
double dy = Math.random() * 200;

// ランダムに取った点が y = x + 0.5 と x軸の間にあればカウントする。
if(dy <= dx + 0.5) {
innerCount++;
}
}

// innerCount / 1000000 = answer / (100 * 200) より推定
answer = 0.02 * innerCount;

// 1 〜 100 の合計の推定値を出力
System.out.println(String.valueOf(answer));

379 ：仕様書無しさん：2015/06/13(土) 12:09:26.21 .net

msgbox "1-100は、-99"

380 ：仕様書無しさん：2015/06/13(土) 12:11:19.74 .net

そこは、
msgbox "！1ｰ100は、足し算ではありません"
だろ。

381 ：仕様書無しさん：2015/06/17(水) 04:57:10.78 .net

@rem Windowsバッチファイル　callの代わりにstart使うと実行結果がより酷くなる（試すな危険）
@echo off
setlocal
if "%1"=="" goto start
if "%1"=="1" exit /b 1
if not "%PROGRAM%"=="IS_RUNNING" goto usage
set /a tmp=%1-1
call %0 %tmp%
set /a tmp=%1+%ERRORLEVEL%
exit /b %tmp%

:start
set PROGRAM=IS_RUNNING
call %0 100
echo 1-100を足し合わせた数 = %ERRORLEVEL%
setlocal
exit /b 0

:usage
echo 引数を指定しないで起動してください.
endlocal
exit /b -1

382 ：仕様書無しさん：2015/07/07(火) 17:07:34.85 .net

// C++ (as better C)
「オーバーフローのチェックをしました！（ﾄﾞﾔ」
http://codepad.org/ywkQTLM1

383 ：仕様書無しさん：2015/07/16(木) 04:08:15.20 .net

この野郎……深夜に大声で笑わせやがって……

384 ：仕様書無しさん：2015/08/07(金) 16:43:46.66 .net

>>1
1-100は引き算だろ

385 ：仕様書無しさん：2015/10/22(木) 22:30:47.29 .net

<phq
$a=1+100
$b=100/2
echo $a*$b;
?>

386 ：仕様書無しさん：2016/05/04(水) 11:19:18.32 .net

匿名通信（Tor、i2p等）ができるファイル共有ソフトBitComet（ビットコメット）みたいな、
BitTorrent（Covenant）が活発な情報交換・交流コミュニティでオープンソース開発されています（プログラマー募集中）

言語は何でも大丈夫だそうなので、P2P書きたい！って人居ませんか？

Covenantの作者（Lyrise氏）がそういう人と話したいそうなので、よろしければツイートお願いします<(_ _)>
https://twitter.com/Lyrise_al

ちなみにオイラはCovenantの完成が待ち遠しいプログラミングできない情報発信好きアスペルガーｗ


通話料が激安になるブラステル（050 Free）で、かなり遅延や音声途切れが発生する方は、以下の設定を試してください
○ Wifiと３Ｇのコーデックは２つ（GSM、G.711u-Law）とも有効にしておく
○ エコーキャンセルをOFF（チェックを外す）にする
○ あとの設定はデフォルトのまま
http://blog.livedoor.jp/gnunobian/archives/52013458.html
上記の設定でも音質が悪い方は、wolfsonの高音質チップを搭載した機種（Galaxy 初代S、S3、S6、 AQUOSPhone ZETA SH-06E、AQUOSPhone si SH-07E、AQUOSPhone Xx 206SH、 Galaxy Note II）に買い換えて下さい。

500円以下の格安SIMで使えて登録・月額無料、IPベース発信なら携帯へは5.5円／30秒、固定へは8円／3分（月額無料でこの価格はすごい！）
http://blog.jikoman.jp/2015/11/brastel-050-free.html

あと、050Freeの起動もしくは発着信が２週間以上ないとプッシュサーバー期限切れでプッシュ着信が出来なくなるので、Llama Location Profilesで１週間に一度050Freeを自動起動するように設定すると、２週間以上経過してもプッシュ着信できます


最後にロケットストーブの焚き口へ超省電力なDC扇風機で風を送ると、横引き煙突が12ｍ以上あっても煙が逆流してきません。
よって、横引き煙突で超高効率な熱回収ができるので薪が少量で済みます
あと、燃焼室の大きさは『無煙竹ボイラMBG150』で検索して参考にして下さい
http://i.imgur.com/iVuglg9.jpg　
http://jp.misumi-ec.com/material/mech/KRT1/PHOTO/KRT1_221004926837.jpg
http://livedoor.blogimg.jp/zoukibayashinokai/imgs/2/a/2a3c6dc0.jpg
、

387 ：仕様書無しさん：2016/05/16(月) 22:15:19.53 .net

C
///////////////////////////

int answer;

printf("1 + 2 + 3 +・・・+ 100 = ? \n答え→");
scanf("%d",answer);

return answer;

388 ：仕様書無しさん：2016/05/20(金) 16:17:36.81 .net

//C++11
//高速化の工夫を何箇所かしました！！
#include <thread>
#include <iostream>
using namespace std;
int s = 0;
//iの分sを加算
//s++から++sにすることで高速化
void add(int i){ while(i--) ++s; }
int main(){
for(int i=0; i < 100; ++i){
thread t(add, i);
t.detach(); //デタッチすることで並列処理
}
//Cで扱える形式に変換
printf("%s\n", to_string(s).c_str());
abort(); //きちんと終了する
}

389 ：仕様書無しさん：2016/05/22(日) 11:40:00.54 .net

C

#include<stdio.h>
int main(){printf("5050");}

390 ：仕様書無しさん：2016/05/28(土) 13:33:47.21 .net

>>382
INT_MAX や、CHAR_MAX って、標準で定義されている定数なの？

391 ：仕様書無しさん：2016/05/28(土) 23:17:28.64 .net

>>387
落ちそう

392 ：仕様書無しさん：2016/06/16(木) 18:27:06.32 .net

system.out.print(googleSearch("1から100までの足し算　答"));

393 ：仕様書無しさん：2016/06/16(木) 21:14:10.14 .net

#include <stdio.h>
for(i=1;i<=100;i++){
for(j=1;j<=I;j++){
printf("1");
}
}

./a.out | wc

394 ：仕様書無しさん：2016/06/26(日) 22:27:12.18 .net

5050

395 ：仕様書無しさん：2016/07/04(月) 17:16:09.91 .net

/* Digital Research PL/I-80 for CP/M */
HOGE : PROCEDURE OPTIONS (MAIN);
DECLARE HAGE FIXED DECIMAL (3);
DECLARE HIGE FIXED DECIMAL (4) STATIC INITIAL(0);
DECLARE MAGE FILE;
OPEN FILE(MAGE) STREAM OUTPUT TITLE('HOGE.LOG');
DO HAGE=1 TO 100;
HIGE = HIGE + HAGE;
PUT FILE(MAGE) EDIT(HAGE, HIGE) (R(SSK));
END;
PUT LIST('YOU MUST CHECK A LOGFILE.');
CLOSE FILE(MAGE);
STOP;
SSK: FORMAT(SKIP, P'**9', X(1), P'***9'); /* SSK := 'Sho-Shi-Khi' */
END HOGE;

396 ：仕様書無しさん：2016/09/14(水) 20:13:34.52 .net

手元にコンパイラないので誤字あるかも...
int hoge(int c int a)
{
if (c != 100)
{
hoge(c+1, a);
}
return a;
}
void main()
{
int ans;
ans = hoge(1, 0);
}

397 ：397：2016/09/14(水) 20:19:31.00 .net

答え足すの忘れてた、まさにクソコードだったｗ
int hoge(int c int a)
{
a+=c;
if (c != 100)
{
hoge(c+1, a);
}
return a;
}
void main()
{
int ans;
ans = hoge(1, 0);
}

398 ：仕様書無しさん：2016/09/14(水) 22:00:22.19 .net

#!/usr/sbin/octave
sum(1:100)

399 ：仕様書無しさん：2016/09/28(水) 17:10:04.05 .net

>>1
そんなの↓これに決まってんじゃんｗ

int sum = 0;
sum = sum + 1;
sum = sum + 2;
(略)
sum = sum + 100;

400 ：仕様書無しさん：2016/09/30(金) 01:07:53.12 .net

Dim sum As Variant
sum = InputBox("1-100の足し算の答えを入力してください")
MsgBox("1-100の足し算の計算結果は" & Str(sum) & "です")

401 ：仕様書無しさん：2016/09/30(金) 01:39:30.90 .net

>>399
>>2の二番煎じって感じがする。

402 ：仕様書無しさん：2016/09/30(金) 02:19:22.04 .net

既出だよん >>91

403 ：仕様書無しさん：2016/09/30(金) 21:20:32.02 .net

ruby

require "base64"
S1 = "laGDWNz1VB0TTiTo2JknT="
S2 = "WhaJQ9URTRdtNBMlSlclP0"
S3 = "QmFzZTY0OjpkZWNvZGU2NChTMi5lYWNoX2NoYXIuem"
S4 = "lwKFMxLmVhY2hfY2hhcikuZmxhdHRlbiAqICcnKQ=="
S5 = "QmFzZTY0OjpkZWNvZGU2NChTMyArIFM0KQ=="
S6 = proc{|x|(eval((eval Base64::decode64 x).to_s))}
sum = ([S6]*2).reduce(S5){|r,x|x.call(r)}

404 ：仕様書無しさん：2016/09/30(金) 22:17:59.00 .net

>>382
これすき

405 ：仕様書無しさん：2016/09/30(金) 23:30:27.15 .net

int sum = 0;

sum = 1; sum = 1 + 2; sum = 3 + 3; sum = 6 + 4; sum = 10 + 5;
sum = 15 + 6; sum = 21 + 7; sum = 28 + 8; sum = 36 + 9; sum = 45 + 10;
sum = 55 + 11; sum = 66 + 12; sum = 78 + 13; sum = 91 + 14; sum = 105 + 15;
sum =

406 ：仕様書無しさん：2016/10/01(土) 00:10:03.69 .net

double sum = 0.0;
for (double i = 0.0; i < 100.0; i++) {
sum += i;
}
printf("%d\n", sum);

407 ：仕様書無しさん：2016/10/02(日) 01:25:30.55 .net

俺が優勝か

408 ：仕様書無しさん：2016/10/19(水) 04:11:14.68 .net

MSX-BASIC(8K RAM)
ひらがなカタカナ記号はキーボードからMSX専用半角文字で入力（コピペだと多分ダメ）
16K以上な機種は&HE018の代わりに&H8018で動くかも

1 DEFUSR=&HE018:A=USR(0)
2 REMなユナゆッO_W>dGx◆_yぇWx=G ゆ##s#rむチムちノ
3 PRINTA

409 ：仕様書無しさん：2016/10/19(水) 14:58:11.35 .net

auto goukei = 0ULL;
for (auto suuji = 1ULL; suuji <= 100ULL; ) {
auto goukei_ichijiteki = goukei;
auto suuji_ichijiteki = suuji;
goukei = goukei_ichijiteki + suuji_ichijiteki;
suuji = suuji_ichijiteki + 1ULL;
}

410 ：仕様書無しさん：2016/10/19(水) 19:19:10.37 .net

最適化次第で動く
// C++
struct sth { int get() const { return 5050; } };
void func(const sth* p)
{
__int n = p->get();
__if (!p) { return; }
__std::printf("%d", n);
}
int main()
{
__func(nullptr);
}

411 ：仕様書無しさん：2016/10/19(水) 21:43:34.09 .net

VBScript + Windows電卓

With WScript.CreateObject("WScript.Shell")
&nbsp; &nbsp; .Run "Calc.exe"
&nbsp; &nbsp; WScript.Sleep 1000
&nbsp; &nbsp; .SendKeys "{+}1"
&nbsp; &nbsp; For counter = 1 To 100
&nbsp; &nbsp; &nbsp; &nbsp; .SendKeys "~^P"
&nbsp; &nbsp; &nbsp; &nbsp; WScript.Sleep 50
&nbsp; &nbsp; Next
&nbsp; &nbsp; .SendKeys "^R"
End With

412 ：仕様書無しさん：2016/11/06(日) 19:24:20.00 .net

vbs
　ってかExcel二番煎じ

Rem

413 ：仕様書無しさん：2016/11/06(日) 19:31:38.87 .net

あれ？2ちゃんでもコメントアウト（無視）される？w　コメント消してみた

"ichi_kara_hyaku_made_attoiumani_tasizan_suruyo.vbs"

Dim ekuseru
Call ekuseru_wo_shutoku(ekuseru)
Call shiito_wo_tsuika(ekuseru)
MsgBox "result:" & ekuseru.Worksheets(100).Range("A2").Value, vbInformation
Set ekuseru = Nothing

Private Sub ekuseru_wo_shutoku(ByRef ekuseru)
Set ekuseru = CreateObject("Excel.Application").Workbooks.Add
ekuseru.Application.Visible = True
End Sub

Private Sub shiito_wo_tsuika(ByRef ekuseru)
Dim shiitosuu, motono_siitosuu
Do While shiitosuu < 100
shiitosuu = shiitosuu + 1
motono_siitosuu = ekuseru.Worksheets.Count
If motono_siitosuu < shiitosuu Then ekuseru.Worksheets.Add ,ekuseru.Worksheets(motono_siitosuu)
ekuseru.Worksheets(shiitosuu).Name = shiitosuu
ekuseru.Worksheets(shiitosuu).Range("A1").Value = shiitosuu
ekuseru.Worksheets(shiitosuu).Range("A2").FormulaR1C1 = suusiki_wo_kaesu(shiitosuu)
Loop
End Sub

Private Function suusiki_wo_kaesu(ByVal shiitosuu)
If shiitosuu = 1 Then suusiki_wo_kaesu = "=R[-1]C"
If shiitosuu > 1 Then suusiki_wo_kaesu = "="&(shiitosuu-1)&"!RC+R[-1]C"
End Function

414 ：仕様書無しさん：2016/11/10(木) 21:35:48.58 .net

VBScript
1〜100の和を 1000^101 / 999^2 の商を利用して計算。
投稿規制に引っかかったので等号は全角にしてます。

n ＝ 100
nn ＝ n * 10
a ＝ nn ^ 2
b ＝ (nn - 1) ^ 2

q ＝ Int(a / b)
s ＝ CStr(q)
For i ＝ 2 To n
a ＝ (a - b * q) * nn
q ＝ Int(a / b)
s ＝ s & "," & Right("00" & CStr(q), 3)
Next

WScript.Echo "sum(1..." & CStr(n) & ") ＝ " & Eval(Replace(s, ",", "+"))

415 ：仕様書無しさん：2017/01/31(火) 19:17:10.73 .net

保守

416 ：仕様書無しさん：2017/01/31(火) 19:27:20.88 .net

ここはプログラマーの社交場
ニートや中学生にはここに来る資格はありませんので
おとなしくじっプラにおかえりください
あしからず

417 ：仕様書無しさん：2017/03/17(金) 03:17:18.76 .net

>>367
2の補数の足し算のコード書いてください。

418 ：仕様書無しさん：2017/03/19(日) 14:37:28.79 .net

Hashtable num;
int sum=0;
int c=0;
while(c<100)
{
int no = Randon.Range(1,101);
if(num[no]) continue;
num[no]=1;
sum += no;
c++;
}
Debug.Log("sum="+sum);

419 ：仕様書無しさん：2017/06/11(日) 14:12:49.66 .net

いいえ

420 ：仕様書無しさん：2017/12/29(金) 21:55:59.10 .net

誰でも簡単にパソコン1台で稼げる方法など
参考までに、
⇒　『宮本のゴウリエセレレ』 というブログで見ることができるらしいです。

グーグル検索⇒『宮本のゴウリエセレレ』

7JI5Q4SWAW

421 ：仕様書無しさん：2018/02/16(金) 01:07:03.45 .net

☆ 私たち日本の、改憲を行いましょう。現在、衆議員と
参議院の両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

422 ：仕様書無しさん：2018/05/22(火) 13:19:37.11 .net

とても簡単な自宅で稼げる方法
参考までに書いておきます
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

03WAM

423 ：仕様書無しさん：2018/09/27(木) 22:35:23.24 .net

287ruby2.5でやろうとしたらSEGV踏んだわ