&M"pp"
L!)(de
&c;`Che"
`!d!sick
!',@p"!'
'N'U`!Lu
yadda yadda Hilbert curve.
Pertama-tama, kami mendorong tiga karakter penting di tumpukan:
!'
'N'U
Kemudian kami menetapkan tanda tangkap dan mulai dengan membaca satu karakter. Kami d
menggandakan dan meniadakannya, dan jika hasil ini benar (jadi jika string kosong; maka input berakhir), kami melompat ke akhir:
;`
d!
,@
Dengan sisa salinan karakter input, kami memeriksa apakah itu terdapat dalam sisa tumpukan (yaitu jika salah satu dari!, N, U). Jika tidak, kami membuat kesalahan, melempar kami kembali ke tanda tangkapan kami di mana kami membaca karakter lain:
&c
`!
Jika tidak, kami memuat apa yang ada di penyimpanan cepat (pada dasarnya register yang awalnya merupakan string kosong; palsu), meniadakannya dan mengirimkannya kembali ke penyimpanan cepat, kemudian meningkatkan kesalahan juga (kembali ke membaca karakter):
&M
L!
Ketika input berhenti, kami dikirim ke ujung. Di sana, kami membalikkan arah, mendorong tanda seru, dan memuat penyimpanan cepat dan meniadakannya. Jika itu benar (yaitu, kami memiliki banyak hal negasi), kami mencetak tanda seru yang kami dorong:
p !'
`!Lu
Akhirnya, kami mendorong string menjadi dua bagian dan mencetaknya (untuk alasan penghematan tempat):
"pp"
)(de
Che"
sick
"
Setelah itu, program masih berjalan kembali ke awal yang asli, tetapi karena tidak ada perintah yang menghasilkan apa pun atau memiliki perilaku gila, itu tidak masalah. Sebenarnya, perintah non-nopping pertama yang kita capai menimbulkan pengecualian, melewatkan sebagian besar kode karena kita melompat ke tanda tangkap, artinya semua yang dilihat Aceto di bagian itu adalah:
&
!' @
'N'U
Karena U
sekarang tidak diawali dengan karakter single-quote dan karena itu tidak dilihat sebagai karakter literal, hal itu akan ditafsirkan sebagai perintah: U
membalikkan semua elemen pada stack (sekarang itu !
, N
, U
, dari atas), dan 'N
dan '!
mendorong lebih karakter, artinya kita akhiri dengan tumpukan [U, N, !, N, !]
.
Catatan tambahan: Ini adalah program Aceto pertama yang ditulis (sebagian) dengan bantuan editor baru Aceto .
notunischecked
?