ものっそい勢いでプログラミングするスレ

ばっちこーーーーい！！！！！１１！！！！

＿('A`)＿ ﾌﾞｩｰﾝ
　 (　)
　 ﾉ〉

エロい虹絵を見る→ちんちんおっき

えいやーーー！！！１１


#include <stdio.h>

main()
{
　　printf("('A`)＿ ﾌﾞｩｰﾝ\n(　)\nﾉ〉\n");
}

#include <string.h>

enum {OKKI};

main()
{
　　char str[100];

　　gets(str);
　　if(!strcmp("エロい虹絵を見る", str)) {
　　　　penise = OKKI;
　　}
}

LOOP:
　LD B,0
　DJNZ LOOP

ttp://www.uploda.org/file/uporg195514.jpg

( ﾟдﾟ)＜ パン

まだまだいくよーーー！！１１１１

int and(int a, int b,)
{
　　return a || b;
}

int or(int a, int b,)
{
　　return a || b;
}

int not(int a)
{
　　return !a;
}

int xor(int a, int b)
{
　　return !(a||b) || a&&b;
}

勢いが足りなくて構築できませんでした。

やっぱプログラミングは難しいわ

おまえら何か注文しろ、すぐに作ってやる！！！！！！

#!/bin/ksh

while true
do
echo "うんこは苦くてうまい"
done

↑これ！こういうのキボンヌ！！

その前にプログラミングとは何か、ここに書かれているモノは何なのかを教えてもらいたい！

#pythonで書いてみた
while 1:
    print "おしっこは辛くておもいでの味"

>>15
くそ！負けた！
だがうんこは美味いこと忘れるなよ

*COBOL ﾃﾞ　ｶｲﾃﾐﾀﾖ!!

EVALUATE I-PARAM
WHEN 'UNKO'
DISPLAY 'ﾆｶﾞｸﾃ　ｳﾏｲ'
WHEN 'ASBEST '
DISPLAY 'ｶｺｳｼﾔｽｸﾃ　ｳﾏｲ　ｼｶﾓ　ﾔｽｲ'
WHEN OTHER
DISPLAY 'ﾏｽﾞｲ'
END-EVALUATE.

#このスレのHTMLを表示するプログラム
import urllib2

URL='http://ex10.2ch.net/test/read.cgi/heaven4vip/1127029831/'

URLObj=urllib2.urlopen(URL)
print URLObj.read()

>>17さんはとってもよい仕事しています。

http://ex10.2ch.net/test/read.cgi/heaven4vip/1127029831/
順位　ID　　　書き込み数
  1 : 1/49aP+K0 : (4)
  2 : wm49DdpB0 : (2)
  3 : tqI7oUcU0 : (1)
  4 : H87kpct6O : (1)
  5 : bx+RXGNQ0 : (1)
  6 : h0f//rOHO : (1)
  7 : yKalXvWB0 : (1)
  8 : OwgYqKXq0 : (1)
  9 : HcLquuqk0 : (1)
10 : gnZSVhQy0 : (1)
11 : vja9nYb10 : (1)
12 : lAlbALU10 : (1)
13 : UjULliyH0 : (1)
14 : LHvLKCmv0 : (1)
15 : LcsXDtyg0 : (1)
total 15 ID

# >>20みたいにIDを集計するプログラム
SrcURL='http://ex10.2ch.net/test/read.cgi/heaven4vip/1127029831/'

import re
import urllib2
import math

TmpURL=re.sub('test/read.cgi/', '', SrcURL)
TmpURL=re.sub('((?=/\d+/))', '/\\1dat', TmpURL)
URL=re.sub('(\d+)/', '\\1.dat', TmpURL)

NameList={}
URLObj=urllib2.urlopen(URL)
for line in URLObj:
check=re.search('ID:(.*?)<>',line)
if check:
name=check.group(1)

if not name in NameList:
NameList[name]=1
else:
num=NameList[name]
num+=1
NameList[name]=num
URLObj.close()

# >>21は貼り付け失敗しますた
SrcURL='http://ex10.2ch.net/test/read.cgi/heaven4vip/1127029831/'

import re
import urllib2
import math

TmpURL=re.sub('test/read.cgi/', '', SrcURL)
TmpURL=re.sub('((?=/\d+/))', '/\\1dat', TmpURL)
URL=re.sub('(\d+)/', '\\1.dat', TmpURL)

NameList={}
URLObj=urllib2.urlopen(URL)
for line in URLObj:
    check=re.search('ID:(.*?)<>',line)
    if check:
        name=check.group(1)
        
        if not name in NameList:
            NameList[name]=1
        else:
            num=NameList[name]
            num+=1
            NameList[name]=num
URLObj.close()

# >>22の続きﾃﾞｽ
ninzu=0
rank=0
print SrcURL
print '順位　ID　　　書き込み数'
for i in range(1002,0,-1):
    for line in NameList:
        if NameList[line] == i:
            rank=rank+1
            ninzu += 1
            NbspNum=1-int(math.log10(rank))
            pre = '＆nbsp;' * NbspNum
            print pre,"%d : %s : (%d)" % (rank, line, NameList[line])
print 'total ',ninzu,' ID'

http://ex10.2ch.net/test/read.cgi/heaven4vip/1127029831/
順位　　名前　　(書き込み数)
1 : 田中 (17)
2 : バカは氏んでも名乗らない田中 (3)
3 : サウンドウェーブ ◆daFVkGT71A (2)
4 : それいゆ 【IQ1】 (1)

# >>24みたいに名前を数えるプログラム (2-1)
SrcURL='http://ex10.2ch.net/test/read.cgi/heaven4vip/1127029831/'

import re
import urllib2
import math

TmpURL=re.sub('test/read.cgi/', '', SrcURL)
TmpURL=re.sub('((?=/\d+/))', '/\\1dat', TmpURL)
URL=re.sub('(\d+)/', '\\1.dat', TmpURL)

NameList={}
URLObj=urllib2.urlopen(URL)
for line in URLObj:
    name=re.search('(.*?(?=<>))',line).group(1)
    name=re.sub('<.*?b>', '', name)
    if not name in NameList:
        NameList[name]=1
    else:
        num=NameList[name]
        num+=1
        NameList[name]=num
URLObj.close()

# >>25の続き (2-2)
rank=0
print SrcURL
print '順位　　名前　　(書き込み数)'
for i in range(1002,0,-1):
    for line in NameList:
        if NameList[line] == i:
            rank+=1
            print '%d : %s (%d)' % (rank, line, NameList[line])

おおなんかすごいな、これｗ
んでこれ言語何？VB？

っとすまん。つい癖が出た許せ

>>24
おお！俺、３回も書き込んでるよ！すごいな一発でわかるのか！

\e

伺かとか懐かしすぎだろ

言語はPython
最近流行ってるらしい

何一つわからない

>>4
実行してみた

('A`)＿ ﾌﾞｩｰﾝ
(　)
ﾉ〉

C:\borland\bccdev1214\User\heaven\Debug>

# URLからリンクされてる所をたどってURLを集める。何の役に立つかわからない。 (2-1)
URL='http://www.yahoo.co.jp/'
CheckDomain='.yahoo.co.jp'

import re
import urllib2

urllist=[]
def getUrls(URLname):
    URLname=URLname[:]
    try:
        URLObj=urllib2.urlopen(URLname)
    except UnboundLocalError:
        print 'UnboundLocalError: '+URLname
        return
        
    for text in URLObj:
        m=re.search('(http://[\w./%_?:]*)', text)
        if m:
            if not m.group(1) in urllist:
                if '.htm' in m.group(1):
                    if CheckDomain in m.group(1):
                        print m.group(1)
                        urllist.append(m.group(1))
                        getUrls(m.group(1))
    URLObj.close()

Ｃをやろうとしたが・・・・・��(￣口￣)
本当はrubyぐらいしか使えません

# >>35の続き (2-2)
getUrls(URL)

fout=open('traveling.log.txt', 'w')
for line in urllist:
    fout.write(line+'\n')
fout.close()

>>35
>>37
普通に面白そうだな、そのプログラム

class unko {
public static void main(String args[]) {
String name = args[0];
String msg;
System.out.print("うんこは苦くて");
if (name.equals("tanaka"))
msg = "うまい";
else if (name.equals("oda"))
msg = "カレー味";
else
msg = "ちんこ風味";
System.out.println(msg);
}
}

# ユークリッドの互除法で最大公約数を求めるプログラム
a=10
b=5

while b>0:
    a,b=b,a%b

print a

よーーーし！！今日もものっそい勢いでプログラミングしちゃうぞ〜〜〜〜！！！

#include <stdio.h>
#include <string.h>

main()
{
　　　char buf[100];

　　　fgets(buf, sizeof(buf), stdin);
　　　if (!strcmp(buf, "nullpo")) {
　　　　　while (1) printf("ga!!\n");
　　　}
}

#いんくる〜ど<えすて〜でおどっとエッチ☆>
もっかい#いんくる〜ど<すとりんぐどっとエッチ☆>

めいんかっこしてかっことじる
{
　ちゃ〜　ばふ[ひゃく];

　えふげっつ(ばふ,さいずおぶ(ばふ),すたディン);
　もし(びっくり!すとるくんぷ(ばふ,"ぬ・る・ぽ☆")){
　　ほわいる(いち)ぷりんとえふ☆("ガッ!!えんん");
　}
}

おわり!!

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

main()
{
　　　　char *tab[] = {"うんこは", "苦くて", "うまい", "カレー", "ちんこ", "味",
　　　　 "田中", "小田", "おっきおっき", "する", "馬"}
　　　　srand(time(NULL));
　　　　while (1) {
　　　　　　　　printf("%s", tab[rand()%sizeof(tab)]);
　　　　}
}

今日は寝る

# 板のDATファイルを根こそぎダウンロードするスクリプト

url='http://ex10.2ch.net/heaven4vip/'

import urllib2
import re

URLObj=urllib2.urlopen(url+'subject.txt')
for line in URLObj:
    filename=re.search('(.*?(?=<>))',line).group(1)
    daturl=url+'dat/'+filename
    print daturl
    URLObj2=urllib2.urlopen(daturl)
    
    fout=open(filename, 'w')
    for line2 in URLObj2:
        fout.write(line2)
    fout.close()

    URLObj2.close()
URLObj.close()

//なでしこ
うんこと言う。

exit(unko);

田中すげえ

<html>ここにプログラミングする</html>

えいやぁぁぁぁぁあーーーーーーーーーーーーーーーーーー！！！！１１１１

#include <stdio.h>
#include <stdlib.h>
#include <time.h>
int add(int a, int b)
{
　　　　return a+b;
}

int sub(int a, int b)
{
　　　　return a-b;
}

int mul(int a, int b)
{
　　　　return a*b;
}

int div(int a, int b)
{
　　　　return a/b;
}

沿い沿い沿いそいやぁぁぁぁぁぁーーーーーーーーー（＾＾）（＾＾）（＾＾）（＾＾）（＾＾）（＾＾）

main()
{
　　　　int a=5, b=8;
　　　　int (*tab[])(int, int) = {add, sub, mul, div};
　　　　for (;;) {
　　　　　　　　a = *(tab[rand()%sizeof(tab);])(a, b);
　　　　　　　　b = *(tab[rand()%sizeof(tab);])(a, b);
　　　　　　　　printf("a:%d b:%d\n", a, b);
　　　　}
}

while (true)
{
    print "unko"
}

なんでこのすれのびてるんだｑ

やっぱcshellだよな

全然わからん、誰か教えてくれ。

>>55
わいがおしえちゃるよ！！！１１１１

>>1
こらー！なんかこの前の奴実行したらエラー
がぼよよーんって出たじゃないか！

右方方法ほうほうほうほうほうぉぉぉぉ！！！！！

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

main()
{
　　　　unsigned int x=0x00;
TIME:
　　　　srand(time());
START:
　　　　switch(rand()%10) {
　　　　　　　　case 0: x |= (0x01<<(rand%32)); goto START;
　　　　　　　　case 1: x &= ~(0x01<<(rand%32)); goto START;
　　　　　　　　case 2: x = ~x; goto START;
　　　　　　　　case 3: x ^= 0xAAAAAAAA; goto START;
　　　　　　　　case 4: x = ~x+0x01; goto START;
　　　　　　　　case 5: x = ^x; goto START
　　　　　　　　case 6: goto TIME;
　　　　　　　　default printf("%X\n", x);:
　　　　}
}

>>57
めんごめんご(^^)
おいらは基本的にコンパイルしないでスレに貼り付けてるからｗｗｗｗ
実行したかったらデバッグＹＯＲＯＳＩＫＵ！！！！

<%="unko"%>

へいぶんへいぶん、ここはへいぶんなり

:
: HELLO.BAT
:
@ECHO OFF
ECHO Hello, world !

'
' hello.bas
'
print "Hello, world !"
end

#!/usr/bin/csh -f
#
# hello.csh
#

echo "Hello, world !"

#!/usr/bin/sh
#
# hello.sh
#

echo "Hello, world !"

for ( ; ; ) {
printf (" (･∀･)ﾙﾌﾟﾝｺ!!\n");
}

#!/usr/bin/awk -f
#
# hello.awk
#

BEGIN{
print "Hello, world !"
}

basicしょぼ

(*
* hello.pas
*)

program HelloWorld (output);

begin
writeln ('Hello, world !');
end.

/*
* hello.c
*/
#include <stdio.h>

int main(int argc, char *argv)
{
  fputs("Hello, world !\n", stdout);
  return (0);
}

D:\tmp>type hello.js

var WShell = WScript.CreateObject("Wscript.Shell");
WShell.Popup("Hello, world !", -1, "Hello", 0);

D:\tmp>

D:\tmp>type hello.vbs
WScript.Echo "Hello, world !"

D:\tmp>

#!/usr/local/bin/perl
#
# hello.pl
#

print "Hello, world !\n"

/*
 *  xhello.c
 */
#include <stdio.h>

#include <X11/StringDefs.h>
#include <X11/Intrinsic.h>
#include <X11/Xaw/Cardinals.h>
#include <X11/Xaw/Form.h>
#include <X11/Xaw/Command.h>
#include <X11/Xaw/Label.h>

XtActionsRec  actions[] = {
  { "Quit", (XtActionProc)Quit },
};

void Quit(/* Callback and Action use this function */)
{
  exit(0);
}

int main(int argc, char **argv)
{
  XtAppContext  app_context;
  Widget        toplevel, form, quit;
  Display       *display;
  static Atom   wm_delete_window;
  XEvent        event;

  String  fallback_resources[] = {
      "*translations:    #override\\n\
            <Message>WM_PROTOCOLS: Quit()",
      "*top:            ChainTop",
      "*bottom:            ChainBottom",
      "*right:            ChainRight",
      "*left:            ChainLeft",
      "*Command.sensitive:    true",
      "*Command.shapeStyle:    oval",
      "*quit.label:        Quit",
      "*quit.width:        64",
      "*quit.bottom:        ChainTop",

      "*quit.right:        ChainLeft",
      "*hello.width:        280",
      "*hello.height:        210",
      "*hello.label:        Hello, world !",
      "*hello.font:        -*-times-*-r-*-34-*",
      "*hello.fromVert:        quit",
      NULL,
  };

  toplevel = XtVaAppInitialize(&app_context, "XHello", NULL, ZERO,
                   &argc, argv, fallback_resources, NULL);

  form = XtVaCreateManagedWidget("form", formWidgetClass, toplevel, NULL);
  quit = XtVaCreateManagedWidget("quit", commandWidgetClass, form, NULL);

  XtVaCreateManagedWidget("hello", labelWidgetClass, form, NULL);

  XtAppAddActions(app_context, actions, XtNumber(actions));
  XtAddCallback(quit, XtNcallback, (XtCallbackProc)Quit, NULL);

  display = XtDisplay(toplevel);
  wm_delete_window = XInternAtom(display, "WM_DELETE_WINDOW", FALSE);
  (void)XSetWMProtocols(display, XtWindow(toplevel), &wm_delete_window, 1);

  XtRealizeWidget(toplevel);
  XtAppMainLoop(app_context);

  /* not reached */
  return (0);
}

>>71訂正　(´・ω・) 使わないんだからvoidにしときゃ良かったなり

/*
 * hello.c
 */
#include <stdio.h>

int main(int argc, char **argv)
{
  fputs("Hello, world !\n", stdout);
  return (0);
}

今夜はハスケルだよ〜〜〜〜〜〜〜〜！！！！！！１１１！！！


merge :: [Int] -> [Int] -> [Int]
merge x [] = x
merge [] y = y
merge [] [] = []
merge (x:xs) (y:ys) = if x <= y then x:(merge xs (y:ys)) else y:(merge (x:xs) ys)

mergeSort :: [Int] -> [Int]
mergeSort (x:[]) = [x]
mergeSort x = merge (mergeSort (take (div (length x) 2) x)) (mergeSort (drop (div (length x) 2) x))

(defun re-fact (n)
  (cond ((= n 0) 1)
        (t (* n (re-fact (- n 1))))))

(defun prog-fact (n)
  (prog (ans)
        (setq ans 1)
  tag   (if (<= n 0) (return ans))
        (setq ans (* ans n))
        (setq n (- n 1))
        (go tag)))

(defun loop-fact (n)
  (let ((ans 1))
    (loop (if (<= n 0) (return ans))
          (setq ans (* ans n))
          (setq n (- n 1)))))

(defun do-fact (n)
  (do ((num n (- num 1))
       (ans 1 (* ans num)))
      ((<= num 0) ans)))

∀・） ﾀﾞｲｶﾞｸ時代のファイルあさってたら、こんなん出ました
　　　 懐かしSASｗ


data;
filename dt1 '/usr/local/export/kyouzai/body.sas';
filename ft20f001 '~/sas/out.dat';
infile dt1;
input height lhand whand foot rview lview hbld lbld typebld sex;

proc sort; by sex; run;
proc print; run;
proc printto unit=20 new; run;

proc means; var height foot hbld; by sex; run;
proc plot; plot height*foot=sex; run;
proc corr; var height lhand foot; run;
proc reg; model height=lhand foot; run;
proc plot; plot height*foot=sex/vaxis=150 to 190 by 1; run;

proc printto; run;

へいぶんへいぶん、ここはへいぶんなり

今夜は休み

へいぶんへいぶん、ここはへいぶんなり

可愛いね＾＾

$echo みんなもっと書き込んでよ
みんなもっと書き込んでよ
$su
root's password:
#echo suになちゃったよ！！
suになちゃったよ！！

cat /etc/passwd | mail [email protected]

へいぶんへいぶん、ここはへいぶんなり

自動で天国らしいﾚｽしてくれるソフト作れよ

>>91 こんなんでどう？
Set IE = Wscript.CreateObject("InternetExplorer.Application","IE_")
IE.Visible = true
IE.Navigate ("http://ex10.2ch.net/test/read.cgi/heaven4vip/1127029831/l1")
While IE.busy
Wscript.Sleep 500
Wend
Set form = IE.Document.Forms(0)
form.elements(3).Value = "お前、なにいってんごく！"
form.elements(0).Click()

お前、なにいってんごく！

お前、なにいってんごく！

>>75-78 の Athena Widget 使わない ver.
大学時代のものなので、かなりの力技満載でちょっと恥ずかしいですが
若気の至りってことでｗ


/*
 *  hello.c
 */
#include <stdio.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>

#define TRUE1
#define WIDTH640
#define HEIGHT400
#define MSG_LEN14/* "Hello, world !" */

int main(int argc, char **argv)
{
  Display      *dpy;
  Window       root, win;
  int          screen, black, white;
  GC           gc;
  XFontStruct  *font;
  XCharStruct  overall;
  XSizeHints   hint;
  XEvent       event;
  char         *text = "Hello, world !";
  int          direction, ascent, descent, tw, th;
  int          x, y, w, h, bw, depth;

  if ((dpy = XOpenDisplay(NULL)) == NULL){
    fprintf(stderr, "%s: error: cannot open display\n", argv[0]);
    exit(1);
  }
  root = XDefaultRootWindow(dpy);
  screen = XDefaultScreen(dpy);
  black = XBlackPixel(dpy, screen);
  white = XWhitePixel(dpy, screen);

  win = XCreateSimpleWindow(dpy, root, 0, 0, WIDTH, HEIGHT, 1, black, white);
  XSelectInput(dpy, win, ExposureMask | ButtonPressMask);

  gc = XCreateGC(dpy, win, 0, NULL);
  XSetForeground(dpy, gc, black);

  font = XLoadQueryFont(dpy, ((argc == 1) ? "-*-times-*-r-*-34-*" : argv[1]));
  XSetFont(dpy, gc, font -> fid);

  XTextExtents(font, text, MSG_LEN, &direction, &ascent, &descent, &overall);
  tw = overall.width;
  th = overall.ascent + overall.descent;

  hint.flags = PSize | PMinSize;
  hint.width = WIDTH;
  hint.height = HEIGHT;
  hint.min_width = tw + 40;
  hint.min_height = th * 2;
  XSetStandardProperties(dpy, win, "hello", "Hello", None, argv, argc, &hint);

  XMapWindow(dpy, win);

  while (TRUE){
    XNextEvent(dpy, &event);
    if (event.xany.type == Expose){
      XGetGeometry(dpy, win, &root, &x, &y, &w, &h, &bw, &depth);
      XClearWindow(dpy, win);
      XDrawString(dpy, win, gc, (w - tw) / 2, h / 2, text, MSG_LEN);
    }else{
      break;
    }
  }

  XFreeFont(dpy, font);
  XFreeGC(dpy, gc);
  XDestroyWindow(dpy, win);
  XCloseDisplay(dpy);

  return 0;
}

ちなみに
何かの本のサンプルを元に改変しただけだから
私が作ったものではありませんｗ