16コメント4KB

新しい言語を覚えるとき

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

NGNG

新しい言語を覚えるときって先ず何から作りますか。
さあ、どうぞ。

俺は、パスワード生成(乱数を指定した数だけ)
するプログラムをつくります。
意味はないんだけど、なんとなく。

0002デフォルトの名無しさん

NGNG

hallo world

基本です

0003デフォルトの名無しさん

NGNG

実際に今欲しいアプリ。
使えるものが作れないと（作れるように修得しないと）
無意味だからね。

0004デフォルトの名無しさん

NGNG

>>2
お前は hello＠｀ world も書けんのか、なんつったりして。

（まあ、辞書によれば hallo＠｀ halloa＠｀ halloo でも hullo でもいいらしいけど）

0005デフォルトの名無しさん

NGNG

Hello world
基本です

00065

NGNG

>4
かぶってスマソ。

0007デフォルトの名無しさん

NGNG

omaemona
基本です

0008デフォルトの名無しさん

NGNG

住所録。Personクラスから作ります。

0009デフォルトの名無しさん

NGNG

Hell world.

0010デフォルトの名無しさん

NGNG

Hellow World

0011デフォルトの名無しさん

NGNG

>>7
俺も。
例)

#include <stdio.h>
#define DEFAULTMSG "おまえモナー"

int main(int argc＠｀ char **argv);

int main(int argc＠｀ char **argv){
int i;
printf("　　∧＿∧　　／￣￣￣￣￣￣￣￣ \n"
"　（ ´∀｀）＜　");
if(argc < 2){
printf("%s "＠｀ DEFAULTMSG);
} else {
for(i = 1; i < argc; i++){
printf("%s "＠｀ argv[i]);
}
}
printf("\n");
printf("　（　　　）　＼＿＿＿＿＿＿＿＿ \n"
"　｜｜　｜ \n"
"　（_＿）＿） \n");
return 0;
}

/*
writeにパイプするとちょっと楽しく遊べるかも
*/

0012デフォルトの名無しさん

NGNG

Hello world
基本です

0013デフォルトの名無しさん

NGNG

Hello＠｀ world

これが正統です

0014くそくらえ

NGNG

>>11
wallで出てきたらやだな。

001511

NGNG

#!/usr/local/bin/perl

if ($#ARGV==-1) { $serif='オマエモナー' }
else {
$serif ='';
foreach (@ARGV){ $serif.="$_ " }
}

$mona=<<'_MONA_';
　　∧＿∧　　／￣￣￣￣￣￣￣￣
　（ ´∀｀）＜　%s
　（　　　）　＼＿＿＿＿＿＿＿＿
　｜｜　｜
　（_＿）＿）
_MONA_

printf($mona＠｀ $serif);
exit;

001611

NGNG

(defvar default-msg "おまえモナー")
(defvar mona
'("　　∧＿∧　　／￣￣￣￣￣￣￣￣\n"
"　（ ´∀｀）＜　" mona-msg "\n"
"　（　　　）　＼＿＿＿＿＿＿＿＿\n"
"　｜｜　｜\n"
"　（_＿）＿）\n"))
(defun mona (msg)
"どこでもモナー。
mew とかでメール見てるときにやると面白いかも."
(interactive "smessage: ")

(let ((list mona)
(mona-msg default-msg)
rect tmp)
(unless (string= msg "")
(setq mona-msg msg))
(while list
(setq tmp (concat tmp (eval (car list))))
(if (string-match "\$.*\$\n" tmp)
(progn
(setq rect (cons (match-string 1 tmp) rect))
(setq tmp nil)))
(setq list (cdr list)))
(setq rect (reverse rect))
(let ((buffer-read-only nil))
(insert-rectangle rect))))

■ このスレッドは過去ログ倉庫に格納されています