Synapse EHR forums - Rebol http://synapse-ehr.com/forums/ Forum for discussing REBOL 2, 3 from REBOL Technologies - the language used to write Synapse en Wed, 08 Sep 2010 10:05:02 GMT vBulletin 60 http://synapse-ehr.com/forums/images/misc/rss.png Synapse EHR forums - Rebol http://synapse-ehr.com/forums/ Recurring function http://synapse-ehr.com/forums/showthread.php?131-Recurring-function&goto=newpost Wed, 01 Sep 2010 16:35:03 GMT :confused: I worte the following script to list all the directories. It doesn't work, why?
Code:
elenco: copy [ ]
funz_cerca: func [ /local a ] [
        a: read %.
        foreach file a [
                if dir? file [
                        append elenco (to-string file)
                        change-dir file
                        funz_cerca
                        ]
                ]
        ]
funz_cerca
write %listadir.txt elenco
]]> Rebol MaxV http://synapse-ehr.com/forums/showthread.php?131-Recurring-function Ubuntu/Debian package http://synapse-ehr.com/forums/showthread.php?130-Ubuntu-Debian-package&goto=newpost Tue, 31 Aug 2010 11:53:47 GMT Hello world, I made a package for Ubuntu or Debian, you can download here: http://www.maxvessi.net/pmwiki/uploads/Main/rebol.deb Let me know... Hello world,
I made a package for Ubuntu or Debian, you can download here:

http://www.maxvessi.net/pmwiki/uploads/Main/rebol.deb

Let me know if you have some problem using it. ]]> Rebol MaxV http://synapse-ehr.com/forums/showthread.php?130-Ubuntu-Debian-package Linux, rebgui and draw... http://synapse-ehr.com/forums/showthread.php?129-Linux-rebgui-and-draw&goto=newpost Tue, 24 Aug 2010 09:18:02 GMT Hi,
I have a problem with draw and Linux. Usually the font used in Linux for DRAW are wrong, so text doesn't appear:
Code:
example: ['text "Hello word!"]
view layout [ box 100x100 effect [draw example ]]
It gives a blank window.
I added:
Code:
example: ['text "Hello word!"]
if (pick system/version 4) = 4 [
        fnt1: make face/font [
                name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf"
                size: 12
                ]
        os: "linux"
        ]
if os = "linux" [ insert example reduce ['font fnt1]        ]
view layout [ box 100x100 effect [draw example ]]
This solution is good, but using rebgui it doesn't work anymore.
What can I do? ]]> Rebol MaxV http://synapse-ehr.com/forums/showthread.php?129-Linux-rebgui-and-draw Random number generation http://synapse-ehr.com/forums/showthread.php?126-Random-number-generation&goto=newpost Mon, 09 Aug 2010 15:42:04 GMT Hello,
I have a problem, I need to extract 10 different random numbers from 1 to 20.
Ok, it seems simple, but I can't get 10 different numbers; I need an extraction like:
1 - 3 - 4 - 7 - 8 -12 -15 - 16 - 17 - 18

but my script goes in forever loop:

Code:
random/seed now
extrac: copy [] ;extraction
counter: 0
until [
  counter: counter + 1
  verify: true
  clear extrac
  extrac: head extrac
  loop 10 [ insert extrac random 20 ]
  sort extrac
  forall  extrac [
      if  (index? extrac) = 10 [break]
      if (( first extrac ) = ( second extrac))  [ verify: false ]
      ]
  print remold ["Tentative number:" counter]
  verify
  ]
print extrac
1-20 it's a very close range and PC has troubles to get 10 different numbers... ]]> Rebol MaxV http://synapse-ehr.com/forums/showthread.php?126-Random-number-generation