Mercurial > repos > rhope

comparison kernel.rhope @ 148:f582fd6c75ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed framework port, works for said.rhope example
author Mike Pavone <pavone@retrodev.com>
date Mon, 22 Nov 2010 01:37:05 -0500
parents f3686f60985d
children 9fab36cc706b
comparison
equal deleted inserted replaced
147:f3686f60985d 148:f582fd6c75ee
314 seeded <- No 314 seeded <- No
315 } 315 }
316 316
317 _Seeded?[:yep,nope] uses _rand 317 _Seeded?[:yep,nope] uses _rand
318 { 318 {
319 Print["Seeded"]
320 yep,nope <- If[_rand::seeded] {} 319 yep,nope <- If[_rand::seeded] {}
321 { 320 {
322 _rand::seeded <- Yes 321 _rand::seeded <- Yes
323 } 322 }
324 } 323 }
329 out <- Yes 328 out <- Yes
330 } 329 }
331 330
332 Random[:out] 331 Random[:out]
333 { 332 {
334 Print["Random"]
335 yep,nope <- _Seeded?[] 333 yep,nope <- _Seeded?[]
336 Val[yep] 334 Val[yep]
337 { 335 {
338 _srand[Trunc Int32[time[0i64]]] 336 _srand[Trunc Int32[time[0i64]]]
339 { out <- rand[] } 337 { out <- rand[] }