Rexx 程式設計/示例程式碼

Hello World

程式碼：Say "Hello World"

輸出Hello World

Uniq

用法：uniq < filename or cat filename | uniq

顯示莖變數可以按字串索引

以及數字。我將其用作改進版的

unix 'uniq' 程式。

程式碼

/* 只顯示整個檔案中的每行的一個副本 */

seen. = 0 /* 莖變數 */

Do While Lines() > 0 /* 讀取輸入行，直到沒有更多 */

Parse Pull this_line /* 獲取一行 */

  If seen.this_line Then Iterate /* 使用該行作為索引，如果看到（值為 1），則迴圈獲取下一行 */

  Say this_line /* 如果它是一行以前未見過的行，則表明我們現在已經看到了它 */

end