🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.sci.lang
Article #7437

Re: nanbanme

#7437
From: Onizuka "Creole" Kentaro
Date: Thu, 25 Feb 1993 02:43
200 lines
11193 bytes
$B%K%e!<%9$r=q$$$F$b$G$F$$$+$J$$$N$G!"CY$l$^$7$?!#(B

In article <G2K032.93Feb22162926@aqua38.cfi.waseda.ac.jp> g2k032@cfi.waseda.ac.jp (KANOU Hiroki) writes:

 |$B%3%s%T%e!<%?$K$"$k=hM}(B$B$r$5$;$k;~$K!"$=$N=hM}J}K!$r6qBNE*$K;XDj$9$k(B
 |$B$?$a$NJ}K!$H$7$F%W%m%0%i%_%s%08@8l$rB*$($k$H!"$=$l$,?M(B$B4V$N;W9M7ABV$r(B
 |$BH?1G$9$k$N$OEvA3$N$h$&$J5$$b$7$^$9!#%W%m%0%i%_%s%0$NBP>]$OJ#;(2=$7$^$9(B
 |$B$+$i!":#$^$G(B$B$N5!3#4s$j$NH/A[K!$K$h$kJ}K!$G$ON)$A$&$A$G$-$J$$$G$7$g$&$7!#(B
 |$B%*%V%8%'%/%H;X8~8@8l$K8+$i$l$k7Q>5$N5!(B$BG=$O<+A38@8l$,$b$DF10l;k$N5!G=$r(B
 |$B<h$jF~$l$?$b$N$G$O$J$$$G$7$g$&$+!#(B

$B7k6I!"$`$+$7$`$+$7$N%^%7%s8l$K(B$B;O$^$j!"%3%s%T%e!<%?8@8l$O$I$s$I$s;H$$0W(B
$B$/$J$C$F$$$k!J!)!K$H$9$k$H!"$=$l$O?M4V$NG'CN$70W$$$b$N$K$J$j(B$B$D$D$"$k$H(B
$B$$$&$3$H$G$9!#Hf3SE*LLGr$$$H;W$&$N$O!"M}O@E*$Ke:No$K:n$i$l$?(Bpure LISP
$B$H$+!"(Bpure prolog $B$J(B$B$I$h$j!"8=>l$N5;=Q<T$,Cf?4$G%"%I%[%C%/$K:n$i$l$?$h(B
$B$&$J8@8l$NJ}$,LLGr$$FCD'$r$b$C$F$$$^$9!#%*%V%8%'%/(B$B%H;X8~$bDL?.%7%9%F%`(B
$B$r#C8@8l$G3+H/$7$F$$$k5;=Q<T$,9=B$BN$NCf$K$8$c$s$8$c$s4X?t$X$N%]%$%s%?(B
$B$rF~$l$F=q(B$B$-;O$a$?$N$,;O$^$j$H$b8@$o$l$F$$$^$9!#(BHyperTalk$B$@$C$FM}O@E*(B
$B$Ke:No$J8@8l$G$O$J$$$G$7$g$&$,$$$m$$$m$H<+(B$BA38@8lE*$KLLGr$$$G$9$h$M!#(B
forth$B$bHs>o$KLLGr$$!#(B

 |$B?t$H8@$&>e0L35G0!J=x?t$b4p?t$b?t;z$K$h$kI=8=$,2DG=(B$B$J$N$G$9$+$iE}0lE*$K(B
 |$BB*$($F$$$k$3$H$OL@$i$+$G$9!K$r=x?t$H4p?t!J$H(B arity$B!&(Btuple$B!K$N%+%F%4%j!<(B
 |$B$KJ,(B$B$1$k!"$H$$$&H/A[K!$N$3$H$r!V=x?t$H8@$&35G0!W$H8F$s$@$N$G$9!#(B
 |$B!t99$K4p?t$N2<$K$O301dNL$HFbJqNL$H$,%+(B$B%F%4%i%$%:$5$l$^$9!#(B
 |
 |$BF|K\8l$G$O?t$H8@$&35G0$N2<$K$"$k$N$O!V8D?t!W!V?M?t!W!D!D$H$$$&!"3F8D$N(B
 |$B=u(B$B?t;l$KBP1~$9$k$5$^$6$^$J?t$N<oN`$@$1$G$9$h$M!#$b$A$m$s$3$l$OL@3N$K(B
 |$B7A<0>eJ,N`$5$l$?!J8@$$J,$1$,2DG=(B$B$J!K?t$N<oN`$H$$$&0UL#$G$9$+$i!"$=$l$i$N(B
 |$B?tNL$N4V$G$O0UL#E*$K6a$$$+1s$$$+$rH=JL$9$k$3$H$,$G$-!"$=$l(B$B$K$h$C$FJ,N`(B
 |$B$9$k$3$H$O2DG=$G$9$,!#$=$l$G$b7A$N>e$G$O!V?t;l!\=u?t;l!W$NI=8=K!$G(B
 |$BI=$5$6$k$rF@$J$$$+(B$B$iF1$8$b$N$H$7$FB*$($F$$$k$H8+$J$;$k$G$7$g$&!#(B

 |$B$7$+$7$=$l$>$l$N?t7ONs$K7A$H$7$F$O$C$-$j$7$?6hJL$r;}(B$B$D1Q8l(B
 |$B$J$I$HHf$Y$l$P:3:Y$J:9$7$+$J$$$H8+$F$$$$$H;W$$$^$9!#(B
 |$B?tNL$KBP$9$k3,AX9=B$$K$h$C$F?t;l$r;H$$(B$BJ,$1$k1Q8l$NJ}K!$H!"=x?t;l$rMQ$$$?(B
 |$B0l85E*$J4IM}K!$K$h$kF|K\8l$NJ}K!$H$N$I$A$i$,JXMx$+!"$H$$$&:9$G$9(B$B$M!#(B
 |$B!V?JK!?t!W$rI=$9$N$K@lMQ$N8l(B(binary $B$d(B decimal)$B$r:n$C$F$$$k8=>u$r8+$k$H!"(B
 |$B:#$N1Q8l$NJ}K!$G$O(B$B>/$7J#;($NEY$,2a$.$k$H;W$$$^$9!#(B

$B%*%V%8%'%/%H;X8~$@$H$*$b$&$s$G$9$h!"F|K\8l$N>l9g$O!#BP>]$N%/%i%9$K1~(B$B$8(B
$B$??tBN7O$,$"$k!#1Q8l$N>l9g$O0lHL2=$7$F!"BN7O2=$5$l$F$$$k!#L>;l$HF0;l$H(B
$B$+IJ;l$N35G0$H$$$&$b$N$O$3$l(B$B$OHs>o$K0lHL2=$5$l$?35G0$G$9!#$G$b!"<B:]L>(B
$B;l$HF0;l$NAH$_9g$o$;$OL>;l$N<($9BP>]$N%/%i%9$K1~$8$F7h$^$C(B$B$F$/$k$b$N$G!"(B
$BL>;l$HF0;l$HJ,$1$k$h$j!"BP>]%/%i%9$H$=$l$N<u$1$H$l$k=R8l%/%i%9$NBP1~$r(B
$B8D!9Dj5A$9$k$N$,(B$BNI$$$3$H$b$"$j$^$9!#$h$/8@$o$l$k!"!VNP?'$N9=B$$,LTA3$H(B
$BL2$k!W$H$$$&J8$,0UL#$r$J$5L5$$$N$O!"IJ;lJ,N`$H(B$B$7$FJ8K!E*$K$O@5$7$$J8$G(B
$B$b!"0UL#E*$KHsJ8$G$"$k$H$$$&$3$H$G$9!#(B
$B$=$N0UL#$G!":#8e$b$C$H0UL#O@E*$JJ8>O2r(B$B@O$,=EMW$K@.$C$F$/$k$H;W$$$^$9!#(B

 |$BF|K\8l$G!"A4$F$N@)Ls>r7o$H$7$F$N=$>~!J$$$o$f$k<g=R$N4X78$b4^$`!K8l(B$B$rHo(B
 |$B=$>~8l$NA0$KCV$/M}M3$G$"$k:,K\K!B'!J$H;d$,9M$($F$$$k$b$N!K$O!"!V8l=g$O(B
 |$BBg>u67$+$i>.>u67$X!W$H(B$B$$$&86B'$G$9!#8@$$49$($l$P!"?7$7$$>pJs$rM?$($kA0$K(B
 |$B6KNOJ8L.$rM?$($k$H$$$&9M$(J}$G$9!#(B
 |
 |Waseda university in Tokyo in Japan
 |$BF|K\$NEl5~$K$"$kAa0pEDBg3X(B
 |
 |$B$3$NFs$D$rHf$Y$k$H!"1Q8l$G$O(B Waseda university $B$H$$$&C18l$rJ9$$$?;~E@$G$O(B
 |$B$=$N3X9;$rCN$i$J$$?M$O$I$N$h$&$J3X9;$J$N$+8+Ev$NIU$1$h$&$b$"$j$^(B$B$;$s!#(B
 |$BF|K\8l$G$O!VF|K\$NEl5~$K$"$k!W$H@bL@$,4{$K$D$$$F$$$^$9$N$G!"$I$N$h$&$J(B
 |$B3X9;$G$"$k$+$rN`?d$9(B$B$k$@$1$N:`NA$,!"!VAa0pEDBg3X!W$H$$$&C18l$rJ9$$$?=V4V(B
 |$B$K$O$b$&M?$($i$l$F$$$^$9!#(B
 |
 |$B!tH?LL!"(BWaseda university $B$rCN$C$F$$$k?M$O!"1Q8l$G$OJ8F,$rJ9$$$?$@$1$G(B
 |$B!tI,MW$J>pJs$rF@$k$3$H$,$G$-$^$9$,!"F|K\8l(B$B$G$O2s$j$/$I$$@bL@$rJ9$-=*$o$k(B
 |$B!t$^$G$O2?$rOCBj$K$7$F$$$k$N$+CN$k$3$H$,$G$-$^$;$s!#$=$N$?$aF|K\?M$O(B
 |$B!tAj<j$NCN<1$r;!$7$FL5BL$J@bL@$r$7$J$$$h$&$K?4$,$1!"9=J8@.J,$rBgI}$K>JN,(B
 |$B!t$9$k$3$H$,B?$$$N$G$7$g(B$B$&!#(B

$B$3$l$G!"1Q8l$G$O4';l$,L>;l6g$N@hF,$KIU$/M}M3$b$o$+$j$^$9$h$M!#4';l$G!"(B
$B$^$:Aj<j$K4{CN$N$b$N$G$"(B$B$k$+$=$&$G$J$$$+$r<($7$F$*$+$J$$$H!"Aj<j$H$7$F(B
$B$O$=$N8e$N2r<a$K;Y>c$r$-$?$9Lu$G$9!#F|K\8l$G$O!"!V$O!W(B$B$H!V$,!W$,4';l5!(B
$BG=$KBP1~$7$F$$$k$H8@$o$l$k$3$H$,M-$j$^$9$,!"$3$l$OL>;l6g$K8eCV$5$l$^$9!#(B
$B$D$^$j!"1Q8l(B$B$HCzEY5U$N$3$H$,8@$($k$H;W$$$^$9!#(B

 |>$B7k6I!"0UL#O@$r9M$($F$$$J$+$C$?;~Be$K!"J8K!$H8@$&$b$N$,!"4pK\E*(B$B$K$O!"%.(B
 |>$B%j%7%"8l!"%i%F%s8l$K4p$E$$$F3+H/$5$l$?$s$G$7$g$&!#F|K\8l$N3hMQ$J$s$6!"(B
 |>$B$b$H$OMv3X$N1F6A(B$B$G$9$+$i$M!#4V@\E*$G$"$l!"F|K\8l$N9qJ8K!$O%.%j%7%"8l!"(B
 |>$B%i%F%s8l$N1F6A$r<u$1$F$$$k$G$7$g$&!#(B
 |
 |$B!V(B$B<g8l!W!V=R8l!W$C$F$d$D$,0lHV$N1F6A$8$c$J$$$G$9$+$M!#FH<+$KF|K\?M$,(B
 |$BJ8K!$rBN7O2=$7$F$$$?$H$7$?$i!"=R(B$B8l0l85O@E*$JJ*$K$J$C$?$G$7$g$&!#(B
 |$B;d$,@h$N%]%9%H$G<gD%$7$?$N$b$=$&$G$9!#$7$+$7$h$/9M$($?$i!"K\B?>!0l(B$B$N(B
 |$B!VF|K\8l$N:nJ85;=Q!W!JD+F|J88K!K$NBh#2!ABh#3>O$N>F$-D>$7E*$JM}O@2=$K(B
 |$B2a$.$^$;$s$M!#(B

$BL@<#;~Be$O(B$B!"K\Ev$KF|K\8l$r@>MN8l$K6a$$$b$N$K2~B$$7$h$&$H$7$?!"$"$k$$$O!"(B
$B7k2L$H$7$F$=$&$7$h$&$H$7$?$h$&$G$9!#$@(B$B$+$i!"L@<#;~Be$N!VF|>o2qOC!W$N65(B
$B2J=q$K$O!"!V2f%OI.%r;}%D%G%"%i%U!W$H$$$&$h$&$J$H$s$G$b$J$$F|K\8l$,>h(B$B$C(B
$B$F$$$^$9!#(B

 |$B7ABVO@E*$J@bL@$H$7$F$NJ8K!$,H/E8$9$k$H$=$&$J$k$s$G$7$g$&$M!#9=J85,B'$r(B
 |$B;YG[$9$k860x(B$B$H$7$F$N0UL#O@E*$JK!B'$rJ8K!$+$iCj=P$9$k;n$_$O$3$l$+$i$H$$$&(B
 |$B$H$3$m$G$7$g$&$+!#(B

$B$=$&$G$9$M!#$3$l$O(B$B!"%A%g%`%9%-!<N.$N@8@.J8K!$NOHAH$r4^$a$F!"5,HOJ8K!$K(B
$BFG$5$l$F$-$?$H$$$&$3$H$G$O$J$$$G$7$g$&$+!#;v<B!"(B$B@8@.J8K!$G$b!"IJ;l$,$=(B
$B$N$^$^=P$F$-$^$9$+$i$M!#(B

 |$B:,K\35G0$ONI$+$C$?$1$I!"<BAu$,2<<j$@$C$?$H$$$&$3$H(B$B$G$7$g$&$+(B (^_^;)$B!#(B
 |$B<j85$K=hM}7O$,$"$k$N$O(B C++ $B$@$1$G$9$,!#(B

C++$B$+$i!"3g8L$H$+(B -> $B$H$+(B . $B$J$I$r<h$j(B$B=|$/$H!"7k9=<+A38@8l%b%I%-$K$J$j(B
$B$^$9!#$b$A$m$s!";H$&C18l$r9M$($J$$$H9T$1$^$;$s$,!#(B

 |>*The one baby is pretty.
 |>
 |>$B$C$F$$$&$N$,$J$$$+$i!"(Bthe+a/one -> the $B$H$$$&5,B'$rF~$l$J$$$H$$$1$^$;(B
 |>$B$s!#(B
 |$BC1(B$B?t$N>l9g$O;X$7<($9BP>]$,$O$C$-$j$7$F$$$^$9$+$i!"?t;l$O>J$+$l$k$N(B
 |$B$G$7$g$&$M!#(B

$B$3$$$D$O!"(B

In article <G2K032.93Feb22162926@aqua38.cfi.waseda.ac.jp> g2k032@cfi.waseda.ac.jp (KANOU Hiroki) writes:

 |$B<B(B$B$O$3$NJ8>O$O8@$$$^$9!#%"%a%j%+$N1Q8l$7$+CN$j$^$;$s$,!"(B
 |
 |   The one baby is pretty.
 |
 |$B$H$$$&8@$$(B$BJ}$,F|>oE*$K;H$o$l$F$$$^$9!#(BThe one $B$K=$>~8l6g$r$D$-2C$($k$N$,(B
 |$BIaCJ$@$H;W$$$^$9$,!#(B
 |
 |   The one baby I saw at your aunt's house last week sure was cute.
 |
 |$B$3$3$G$O(B one $B$r<h$j=|$$$F$b0UL#$,JQ$o$j(B$B$^$;$s!#2{$+$7$_$J$,$i$3$N(B the
 |one xxx$B$r;H$&$3$H$,B?$$$H;W$$$^$9$,!"$=$l$K8B$i$l$F$$$J$$$G$7$g$&!#(BE.g.,
 |
 |  You take the one heavy bag and I'll handle these ten smaller ones.

$B$@$=$&$G$9$M!#$^$"!"M-(B$B$jF@$J$$$N$O!"(B The a baby is pretty $B$G$9$M!#J8K!(B
$BE*$K!"(B the three man love the baby.$B$,$"$k$N$J$i!"(Bthe one baby...$B$,$"$C(B
$B$F$7$+$j$G$9!#(B

 |$B%3%s%T%e!<%?$N@$3&$G$O(B get $B$H(B there is/are $B$,F10U8l$K$J$k$H$$$&$N(B$B$O(B
 |$BLLGr$$$G$9$M!#%I%$%D8l$GB8:_$rI=$9(B es gibt(= it gives)$B$H$$$&I=8=$b2?$H$J$/(B
 |$BG<F@$,$$$/!#(B

$B$3$l$O(B$B!"%/%l%*!<%k$NI=8=$G$9!#%/%l%*!<%k$G$O!"B8:_$H=jM-$,F10l$G$9$+$i!"(B
$BF1$8(Bget$B$r;H$$$^$9!#(B

Mi get wan dog.		I have a dog.
Get wan haus dere.	There is a house.

 |$B!t$"$l!)(B $B%U%i%s%98l$G$O$I$&8@$&$s$G$7$?$C$1(B$B!)(B

Il y a ....
$B$G$9$1$I!"$3$l$O!"1Q8l$KD>Lu$9$k$H!"(B it there has .. $B$G$9$M!#$d$C$Q$j(B
$B=jM-$G$9$h$M!#IT(B$BDj?M>N$N(B il $B$,(B avoir $B$r$H$b$J$C$F$$$^$9$+$i$M!#9u?M1Q(B
$B8l$G$O!"(Bthere is, there are $B$NBe$o$j$,!"(B it's $B$J(B$B$s$G$9$1$I!"$3$l$O!"(B 
it has $B$N>JN,$@$C$?$H;W$$$^$9!#(B

I know it's a god.	I know that there is a god.

$B$^$"!"9u?M1Q8l$O%/%l%*!<%k$+$iH/C#$7$FI8=`2=$5$l$F$$$^$9$+$i!"(Bget$B$,(B
have,has$B$KD>$5$l$F!"F,$K$J$K$b$J(B$B$$$N$,$$$d$@$+$i!"(Bit$B$,$-$F!"(Bit has$B$K$J$C(B
$B$?$s$G$7$g$&!#(B

 |$B8!:w$,5?Ld$r4^$`4X78;l$@$H$$$&$N$O9M$($F$_(B$B$?$3$H$b$"$j$^$;$s$G$7$?!#(B
 |$B1T$$$40U8+$G$9$M!#%*%V%8%'%/%H;X8~E*$JH/A[$G$OEv$jA0$J$N$G$7$g$&$+!)(B

$B$I(B$B$&$G$7$g$&$M!#4X78BeL>;l$N$"$k%*%V%8%'%/%H;X8~8@8l$C$F$$$&$N$OJ9$$$?(B
$B$3$H$,$J$$$7!#(B
The + $BL>;l(B + $BA0CV(B$B;l6g(B/$B4X78BeL>;l6g(B $B$H$$$&$N$O!"$^$:!"(Bthe$B$G4{CN$N%*%V%8%'(B
$B%/%H$G$"$k$3$H$r$7$a$7$F!"<!$K!"L>;l$G%/%i%9$r(B$B$7$a$7!"$=$l$GJ#?t$N4{CN(B
$B$N$=$N%/%i%9$KB0$9$k%*%V%8%'%/%H$,$"$k$N$G!"8BDj$5$l$J$$$N$G!"$&$7$m$N(B
$B8BDj@b(B$B$G8BDj$7$F$$$k$s$G$9$M!#$@$+$i!"%/%i%9$H8BDj>r7o$rM?$($F8!:w$7$F(B
$B$$$k$N$HF1$8$3$H$G$9!#(B

point Points[N];

   ...
   ...
   ...

for(int I=0;I<N;++I)
{
  if(Points[I].x_coordinate() < 1.0)
    Points[I].plot();
}

$B$H$$$&(BC++$B$N%W%m%0%i%`$O!"(B

Plot all the points whose x coordinate is less than 1.0.

$B$G$9(B$B$+$i!"$A$g$C$/$i?t3XE*$K$9$k$H!"(B

Plot all the points whose x_coordinate < 1.0.

$B$3$l$O!"(B

(Points | x_coordinate() < 1.0).plot();

$B$_$?$$$K=q$1$F$b$h$$$G$9$h$M!#(BSmallTalk$B$G$O$G$-$?$+$J!#(B
--
..Kentaro Onizuka .... Institute for New Generation Computer Technology ...
.......................................E-mail  onizuka@icot.or.jp .........
...Mi waan mek star ship! Mi waan go Mars! Dat mi drim! .....(i) x13.(s)x3.
Technical Details
Message-ID: <ONIZUKA.93Feb25114313@psiux535.icot.or.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!news.u-tokyo.ac.jp!wnoc-tyo-news!icot10!ss151!onizuka
References: <ONIZUKA.93Feb4180029@psiux535.icot.or.jp> <KAZU.93Feb5110446@cetus.trl.ibm.com> <HTANAKA.93Feb5152837@kappa.icot.or.jp> <G2K032.93Feb12183004@aqua18.cfi.waseda.ac.jp> <ONIZUKA.93Feb12205118@psiux535.icot.or.jp> <G2K032.93Feb13180615@aqua22.cfi.waseda.ac.jp> <ONIZUKA.93Feb15142725@psiux535.icot.or.jp> <G2K032.93Feb15183305@aqua3a.cfi.waseda.ac.jp> <ONIZUKA.93Feb16120135@psiux535.icot.or.jp> <G2K032.93Feb22162926@aqua38.cfi.waseda.ac.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ffb0e,ae9c0dcc7d63e191
X-Google-Attributes: gidffb0e,public
X-Google-ArrivalTime: 1993-02-24 18:43:13 PST
Newsgroups: fj.sci.lang
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!news.u-tokyo.ac.jp!wnoc-tyo-news!icot10!ss151!onizuka
From: onizuka@icot.or.jp (Onizuka "Creole" Kentaro)
Subject: Re: nanbanme
In-Reply-To: g2k032@cfi.waseda.ac.jp's message of Mon, 22 Feb 1993 07: 29:26 GMT
Message-ID: <ONIZUKA.93Feb25114313@psiux535.icot.or.jp>
Sender: news@ss151.icot.or.jp
Organization: Institute for New Generation Computer Technology, Tokyo, Japan
References: <ONIZUKA.93Feb4180029@psiux535.icot.or.jp>
 <KAZU.93Feb5110446@cetus.trl.ibm.com>
 <HTANAKA.93Feb5152837@kappa.icot.or.jp>
 <G2K032.93Feb12183004@aqua18.cfi.waseda.ac.jp>
 <ONIZUKA.93Feb12205118@psiux535.icot.or.jp>
 <G2K032.93Feb13180615@aqua22.cfi.waseda.ac.jp>
 <ONIZUKA.93Feb15142725@psiux535.icot.or.jp>
 <G2K032.93Feb15183305@aqua3a.cfi.waseda.ac.jp>
 <ONIZUKA.93Feb16120135@psiux535.icot.or.jp>
 <G2K032.93Feb22162926@aqua38.cfi.waseda.ac.jp>
Distribution: fj
Date: Thu, 25 Feb 1993 02:43:13 GMT
Lines: 200