&M"pp"
L!)(de
&c;`Che"
`!d!sick
!',@p"!'
'N'U`!Lu
đường cong yadda yadda Hilbert.
Trước hết, chúng tôi đẩy ba nhân vật quan trọng trên ngăn xếp:
!'
'N'U
Sau đó, chúng tôi đặt một dấu bắt và bắt đầu bằng cách đọc một ký tự. Chúng tôi phản đối d
nó và phủ nhận nó, và nếu kết quả của điều này là đúng (vì vậy nếu chuỗi trống; vì vậy đầu vào kết thúc), chúng tôi sẽ nhảy đến cuối:
;`
d!
,@
Với bản sao còn lại của ký tự đầu vào, chúng tôi kiểm tra xem nó có được chứa trong phần còn lại của ngăn xếp không (tức là nếu nó là một trong !, N, U). Nếu không, chúng tôi sẽ đưa ra một lỗi, đưa chúng tôi trở lại điểm đánh dấu của chúng tôi, nơi chúng tôi đọc một nhân vật khác:
&c
`!
Mặt khác, chúng tôi tải những gì trên bộ lưu trữ nhanh (về cơ bản là một thanh ghi ban đầu là một chuỗi trống; giả mạo), phủ nhận nó và gửi lại cho bộ lưu trữ nhanh, sau đó cũng đưa ra lỗi (quay lại đọc các ký tự):
&M
L!
Khi đầu vào dừng lại, chúng tôi được gửi đến cuối. Ở đó, chúng tôi đảo ngược hướng, đẩy dấu chấm than và tải lưu trữ nhanh và phủ nhận nó. Nếu đó là sự thật (tức là chúng tôi đã có một số lượng điều phủ định lẻ), chúng tôi sẽ in dấu chấm than mà chúng tôi đã đẩy:
p !'
`!Lu
Cuối cùng, chúng tôi đẩy chuỗi thành hai phần và in chúng (vì lý do tiết kiệm không gian):
"pp"
)(de
Che"
sick
"
Sau đó, chương trình vẫn chạy trở lại ban đầu, nhưng vì không có lệnh nào tạo ra bất cứ điều gì hoặc có hành vi khập khiễng, điều đó không thành vấn đề. Trên thực tế, lệnh không đầu tiên mà chúng ta đạt được sẽ tạo ra một ngoại lệ, bỏ qua phần lớn mã vì chúng ta nhảy đến dấu bắt, nghĩa là tất cả những gì Aceto thấy trong phần đó là:
&
!' @
'N'U
Kể từ U
bây giờ không preceeded bởi một nhân vật đơn báo giá và do đó không được coi là một nhân vật theo nghĩa đen, nó được hiểu như là một lệnh: U
đảo ngược tất cả các yếu tố trên stack (bây giờ là !
, N
, U
, từ trên xuống), và 'N
và '!
đẩy hơn ký tự, có nghĩa là chúng ta kết thúc với ngăn xếp [U, N, !, N, !]
.
Lưu ý bên lề: Đây là chương trình Aceto đầu tiên được viết (một phần) với sự trợ giúp của biên tập viên mới của Aceto .
notunischecked
?