Newsgroups: fj.lang.c
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!foretune!lkbreth!merope!void
From: void@merope.pleiades.or.jp (Kusakabe Youichi)
Subject: Re: int->char change
Message-ID: <1994Sep9.013850.833@merope.pleiades.or.jp>
Organization: Macintosh User Group PLEIADES
X-Newsreader: TIN [version 1.2 PL0]
References: <CvtF1K.J6s@resgw.research.co.jp>
Date: Fri, 9 Sep 1994 01:38:50 GMT
Lines: 63
Xref: galaxy.trc.rwcp.or.jp fj.lang.c:1565
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.c&nb=1565&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

Shigeru Makino (mac@resgw.research.co.jp) wrote:
: $B@8@.;~$K!"J8;zNs$ND9$5$,J,$+$C$F$$$k$N$K!"(B
: reverse()$B$G$b$&0lEY?t$($5$;$k$N$C$F$b$C$?$$$J$/$J$$$G$9$+(B?

$B$3$l$O$?$7$+$K$=$&$G$9$M!#(B

$B$G$b$[$+$K;XE&$7$F$$$?$@$$$?ItJ,$N:GE,2=$C$F$$$&$N$O(B
$B$1$C$3$&%3%s%Q%$%i!<$K0MB8$9$k$b$N$G$9$+$i!V(Bxxx$B$N%3%s%Q%$%i!<$G$O!W$H(B
$BCG$j$r$D$1$FM_$7$+$C$?(B...$B!#(B

$B%k!<%W$N=*N;H=Dj$N(B i < size - 1 $B$N0z$-;;$r30$K=P$7$F$/$l$J$$%3%s%Q%$%i!<(B
$B$J$s$F$$$&$N$OO@30$G$9$,!"$b$7$=$&$$$&%3%s%Q%$%i!<$,$"$C$?$H$7$F$b!"(B
$B%=!<%9<+BN$O!"J,$+$j$d$9$/D>46E*$J=q$-J}$r$7$F!"(B
$B!V%3%s%Q%$%i!<$,$5$\$C$F$$$k$V$s?M4V$,$d$C$F$$$k$s$@!W$HG'<1$7$F!"(B
$B$=$N%=!<%9$+$i(B1$BCJ3,$/$:$7$?$b$N$r$$$A$$$A@8@.$9$k$Y$-$G$7$g$&!#?M4V$,!#(B
(sed$B$d(Bawk$B$G$b$G$-$=$&$@$,(B...#define$B$H$+$b4^$a$F87L)$K$d$m$&$H$9$k$H!"(B
 lex$B$,M_$7$/$J$j$^$9$M!#$"(Byacc$B$b$+$J(B...$B!#$h$&$9$k$K%W%j%W%m%;%C%5!<$r(B
 $B$D$/$k$Y$-$G$9!#$@$C$?$i%3%s%Q%$%i!<$r:n$C$?$[$&$,Aa$$$+$J(B?)

: $B:GE,2=:n6H$r<j$G$d$C$F$7$^$&$N$O!"K\<AE*$G$O$J$$$h$&$K$b!"(B
: $B;W$$$^$9$,!"FC$K%i%$%V%i%jE*$J(Bfunction$B$O!"$=$NJU5$$r;H$&$+$I$&$+$G!"(B
: $B7k9=;E>e$,$j$K:9$,=P$F$7$^$&$h$&$K46$8$^$9!#(B

   do 10 I=1,10
   do 20 J=1,100000
     if (i > j)
        func(i, j)
     else
        func(i, j * 2)
20 continue
10 continue
$B$H=q$/$H$=$l$J$j$N%3!<%I$G$b!"(BLOOP$B$NFbB&$H30B&$r5U$K$9$k$H!"(B
$B%Y%/%?!<%W%m%;%C%5!<MQ$N%3!<%I$rEG$$$F$/$l$J$$%3%s%Q%$%i!<$,$"$C$?$H$7$^$9!#(B
$B$=$l$O?M4V$,9MN8$9$k$Y$-$G$9$+(B?
($B?M4V$O$;$$$<$$FbB&$H30B&$r<h$jBX$($F$b$$$$%k!<%W$@$H$$$&0u$@$1$D$1$k$/$i$$(B
 $B$J$i$$$$$N$@$1$I(B)

$B@N;0I)$N(BMELCOM$B$H$$$&$d$D$N(Bfortran$B$O!"(B
N = N + 1
$B$@$H%$%s%/%j%a%s%H$NL?Na$,=P$F$/$k$N$@$1$I!"(B
N = 1 + N
$B$@$H(BI$B$K(B1$B$rB-$7$?$b$N$r(BI$B$KBeF~$7$F$/$l$^$7$?!#(B
$B$3$l$O:GE,2=%9%$%C%A$r$D$1$F$bF1MM$G$7$?!#(B
$B$3$l$b?M4V$,9M$($k$Y$-(B?

$B$3$s$J$N$O%=!<%9%l%Y%k%*%V%A%^%$%6!<$_$?$$$J$b$N$r!"(B
$B$D$/$C$A$c$&$Y$-$G$9$h$M!#<+J,$G(B

1$BIC4V$K2?K|2s$b8F$P$l$kItJ,$@$?$i!"$[$s$N$A$g$C$H$N:9$OBg$-$$$G$9$+$i!"(B
$B%3%s%Q%$%i!<$K$^$+$;$i$l$J$$$H$-$K$O!"<+J,$G%*%W%A%^%$%:$9$k$C$F$$$&$N$O(B
$BI,MW$@$H$O;W$$$^$9!#(B

$BM-L>$J?M$N8@MU$K!"(B
$B!V:GE,2=!&8zN($r1>!9$9$k$H$-$K$O!"$+$J$i$:B,Dj$7$F$+$i$K$9$k$3$H!W(B
$B$C$F$$$&$N$,$"$j$^$9!#(B
$B%5%$%:$K$D$$$F$J$i$P!"@8@.$5$l$?%3!<%I!";~4V$K$D$$$F$J$i$P!"(B
$B<B:]$KF0:n$5$;$?$H$-$K$+$+$C$?;~4V$NB,Dj7k2L$b$$$C$7$g$K$7$a$7$F$"$l$P(B
$B3Z$7$=$&$J$N$K!#(B

  $B%X(B_$B%X(B   ----------------------------
$B%_!&!&(B $B%_(B  void@merope.pleiades.or.jp
 (     )$B!A(B          $B$/$5$+$Y$h$&$$$A(B
--------------------------------------
