Probabilmente stai cercando un AppleScript quine . Non sono un programmatore né un informatico, quindi non posso davvero spiegare come scrivere codice autoreferenziale. Additional Non so se un linguaggio di script (di alto livello) come AppleScript sia abbastanza potente da produrre quine arbitrarie.
Ho trovato solo due esempi di funzioni quinte di AppleScript che potrebbero aiutarti a crearne uno personale - solo il primo crea un nuovo 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}
Link per il download: 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}
Link per il download: quine.scpt