Con vẹt - Chi nhánh

Code hơi nhàm chán nếu không có điều khiển luồng; Đối với người mới bắt đầu, Parrot biết về phân nhánh và nhãn. Chi nhánh op tương đương với goto của Perl:

branch TERRY
JOHN:    print "fjords\n"
         branch END
MICHAEL: print " pining"
         branch GRAHAM
TERRY:   print "It's"
         branch MICHAEL
GRAHAM:  print " for the "
         branch JOHN
END:     end

Nó cũng có thể thực hiện các bài kiểm tra đơn giản để xem liệu một thanh ghi có chứa giá trị đúng hay không:

set I1, 12
         set I2, 5
         mod I3, I2, I2
         if I3, REMAIND, DIVISOR
         
REMAIND: print "5 divides 12 with remainder "
         print I3
         branch DONE
         
DIVISOR: print "5 is an integer divisor of 12"

DONE:    print "\n"
         end

Đây là những gì sẽ giống như trong Perl, để so sánh:

$i1 = 12;
$i2 = 5;
$i3 = $i1 % $i2;

if ($i3) {
   print "5 divides 12 with remainder ";
   print $i3;
} else {
   print "5 is an integer divisor of 12";
}

print "\n";
exit;

Nhà điều hành con vẹt

Chúng tôi có đầy đủ các bộ so sánh số: eq, ne, lt, gt, le và ge. Lưu ý rằng bạn không thể sử dụng các toán tử này trên các đối số của các kiểu khác nhau; bạn thậm chí có thể cần thêm hậu tố _i hoặc _n vào op, để cho nó biết bạn đang sử dụng kiểu đối số nào, mặc dù trình hợp dịch phải phân tích điều này cho bạn, vào thời điểm bạn đọc nó.