🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.st80
Article #14

question about array

#14
From: Nobuyuki Amaki
Date: Thu, 10 Dec 1992 02:38
39 lines
1742 bytes
$@$O$8$a$^(J$@$7$F!$E7LZ!w:eBg$H$$$$$^$9!%(J

$@:#G/$N(J 9$@7n:"$+$i!$(JSmalltalk-80$@$r;H$$;O$a$F$$$k$N$G$9$,!J=i$a$N$&$A$O(J 
version2.5  10$@7n$NCf:"$+$i(Jrelease4.1$@$r;H$C$F$$$^$9!K!$=iJbE*$J$b$N$+$b(J
$@CN$l$^$;$s$,!$(JArray$@$N$3$H$GH=$i(J$@$J$$$3$H$,$"$k$N$G<ALd$7$^$9!%(J

$@#A!%(J
| tmp |
tmp := #(('1-1' '1-2') ('2-1' '2-2')).
1 to: 2 do: [ :i|
	(tmp at: i) at: i put: 'new'].
^tmp
$@$H$9$k$H!$(J
	 #(#('new' '1-2' ) #('2-1' 'new' ) )
$@$H$$$&Ez$,JV$C(J$@$F$/$k$N$G$9$,!$(J

$@#B!%(J
| tmp |
tmp := (RunArray new: 2 withAll: (Array new: 2)) asArray.
1 to: 2 do: [ :i|
	(tmp at: i) at: i put: 'new'].
^tmp
$@$H$9$k$H!$(J
	 #(#('new' 'new' ) #('new' 'new' ) )
$@$H$$$&Ez$,(J$@JV$C$F$-$^$9!%(J

$@#B!%$NEz$O!$#A!%$NEz$+$i$9$k$H!$(J
	#(#('new' nil) #(nil 'new'))
$@$H$J$k$H;W$&$N$G$9$,!$(J$@$=$&$J$j$^$;$s!%(J
$@$I$&$9$l$P!$(J
	#(#('new' nil) #(nil 'new'))
$@$H$$$&(J Array$@$rF@$k$3$H$,$G$-$k$h$&$K$J$k$N(J$@$G$7$g$&$+!)(J

syntax$@Ey$O(J Release4.1$@$G$N$b$N$G$9!%(J
--
-------
               $@Bg:eBg3X(J $@;:6H5!3#9)3X@l96(J $@@VLZ8&(J M1
                $@E7LZ(J  $@D*G7(J     $@!V$"$^$-(J $@$N$V$f$-!W(J
                 E-mail:amaki@meim.osaka-u.ac.jp
Technical Details
Message-ID: <AMAKI.92Dec10113831@syd01.meim.osaka-u.ac.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!stanford.edu!sun-barr!sh.wide!wnoc-kyo!icspub!ccsparc01!taeko!slson3!mech-srv!amaki

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!stanford.edu!sun-barr!sh.wide!wnoc-kyo!icspub!ccsparc01!taeko!slson3!mech-srv!amaki
From: amaki@meim.osaka-u.ac.jp (Nobuyuki Amaki)
Newsgroups: fj.lang.st80
Subject: question about array
Message-ID: <AMAKI.92Dec10113831@syd01.meim.osaka-u.ac.jp>
Date: 10 Dec 92 02:38:31 GMT
Sender: news@mech-srv.ccm.osaka-u.ac.jp
Distribution: fj
Organization: Dept. of Mech. Eng. for Ind. Mach. & Syst., Osaka Univ.
Lines: 39
Nntp-Posting-Host: syd01