คุณอาจจะมองหา AppleScript ควิน ฉันไม่ใช่โปรแกรมเมอร์หรือนักวิทยาศาสตร์คอมพิวเตอร์ดังนั้นฉันจึงไม่สามารถอธิบายวิธีการเขียนโค้ดที่สร้างตัวเองได้ เพิ่มเติมฉันไม่ทราบว่าภาษาสคริปต์ (ระดับสูง) เช่น AppleScript มีประสิทธิภาพเพียงพอที่จะสร้าง quines โดยพลการ
ฉันได้พบตัวอย่างของการทำงาน AppleScript เพียงสองตัวอย่างเท่านั้นซึ่งอาจช่วยคุณสร้างของคุณเอง - เฉพาะคนแรกที่สร้าง AppleScript ใหม่:
set d to "on string_from_ASCII_numbers(x)
set s to ASCII character of item 1 of x
repeat with i from 2 to number of items in x
set s to s & (ASCII character of item i of x)
end repeat
end string_from_ASCII_numbers
set set_d_to to {115, 101, 116, 32, 100, 32, 116, 111, 32}
set scriptEditor to {83, 99, 114, 105, 112, 116, 32, 69, 100, 105, 116, 111, 114}
set quine to string_from_ASCII_numbers(set_d_to) & quote & d & quote & return & d
tell application string_from_ASCII_numbers(scriptEditor) to make new document with properties {contents:quine}"
on string_from_ASCII_numbers(x)
set s to ASCII character of item 1 of x
repeat with i from 2 to number of items in x
set s to s & (ASCII character of item i of x)
end repeat
end string_from_ASCII_numbers
set set_d_to to {115, 101, 116, 32, 100, 32, 116, 111, 32}
set scriptEditor to {83, 99, 114, 105, 112, 116, 32, 69, 100, 105, 116, 111, 114}
set quine to string_from_ASCII_numbers(set_d_to) & quote & d & quote & return & d
tell application string_from_ASCII_numbers(scriptEditor) to make new document with properties {contents:quine}
ลิงค์ดาวน์โหลด: quine.applescript.zip
set s to "on run {s}
set pre to «data utxt0073006500740020007300200074006f00200022» as text
set post to «data utxt0022000a00720075006e0020007300630072006900700074002000730020007700690074006800200070006100720061006d006500740065007200730020007b0073007d»
pre & s & post
end run"
run script s with parameters {s}
ลิงค์ดาวน์โหลด: quine.scpt