問題與REBOL

Question

遞歸性我有，我想用這個功能來遍歷遞歸

folders: [ 
    Chrome [ 
     content [ 
      preferences 
      prefpages 
     ] 
    ] 
    icons [ 
     default 
    ] 
    locale [ 
     en-EN [ 
      csbar 
     ] 
    ] 
    skin 
] 

塊：

iterate-folder: func [folders [block!]][ 
    foreach folder folders [ 
     either not block? folder [ 
      probe folder 
      temp: folder 
      input 
     ] [ 
      print "folder" 
      probe folder 
      print "folders" 
      probe folders 
      probe select folders folder 
      type-folder: type? select folders folder 
      probe type-folder 
      input 
      iterate-folder select folders folder 
     ] 
    ] 
] 

但愚蠢的原因，我不能看到，探頭夾回報沒有以上所以它不起作用。

Answer 1

就這麼選擇文件夾，文件夾是messsing起來，我覺得..... 文件夾已經是你想要的數據結構。

試試這個（注還問而不是輸入只是爲了補充在這一點上調試字符串）：

iterate-folder: func [folders [block!]][ 
    foreach folder folders [ 
     either not block? folder [ 
      probe folder 
      temp: folder 
      ask "continue/not block" 
    ] [ 
      print "folder" 
      probe folder 
      print "folders" 
      probe folders 
      probe select folders folder 
      type-folder: folder 
      probe type-folder 
      ask "continue/block" 
      iterate-folder folder 
     ] 
    ] 
]