rebol/red：それがforeachの最後の項目であるかどうかを知る上品な方法はありますか？

Question

私のコードは不格好です：

length: length? items 
    count: 0 
    foreach item items [ 
    count: count + 1 
    if count = length [ 
     print "last item" 
    ] 
    ] 

はよりよい何かがありますか？

Answer 1

一般的に人は、アイテムを与えるのとは逆にシリーズの位置を動かすFORALL （これはFOR-NEXTという名前の方がはるかに良いでしょう）を使用すると、TAIL？でテストできます。これはほぼ同等である

forall items [ 
    probe items/1 ;-- how to access current item 
    if tail? next items [ ;-- could use LAST? ITEMS in Rebol 3 
     print "last item" 
    ] 
] 

：欠点は、あなたが現在の位置にシリーズのうち、項目を選択する必要がある

if not tail? items [ 
    original: items 
    until [ 
     probe items/1 
     if tail? next items [ 
      print "last item" 
     ] 
     items: next items 
     tail? items 
    ] 
    items: original 
] 

はあらかじめご了承：FORALLは、その入力系列を変異させると置くしようとします最後の最初の位置に戻ります。しかし、エラーが発生した場合の動作はあまり定義されていないため、問題が発生した場合は途中で入力を残すことができます。