esmpmpmeimtmemqmememqicelic
esmpmpmeimememqmlmtmemoc
esmpmpmeimememqmtmtmtmtmeic
esmpmpmeimememqmtmtmtmtmeic
esmpmpmeimeiscic
esmpmpmeimemeimfsic
esmpmpmeisciscimqmtmemeic
esmpmpmeiscimlmqmqmemeic
esmpmpmeimemomqmqmemeic
esmpmpmeisciscimfsimqic
esmpmpmeimeiscic
esmpmpmeisciscimfsimqic
esmpmpmeimemomqmemqmemtmemoc
esmpmpmeiscic
esmpmpmeimemomeimqmeic
esmpmpmeimemeimqmlmtmeic
esmpmpmeimtmtmqmemtmtmeic
esmpmpmeimemomqmqmtmeic
esmpmpmeimemqmqmemeic
esmpmpmeiscimlmqmqmemeic
esmpmpmeiscimqmtmtmtmqmemeic
esmpmpmeimeimemtmqmemeic
esmpmpmeimeiscimlmlmtmlmtic
esmpmpmeimemeimqmlmtmeic
~~
सभी लाइनफ़ीड कॉस्मेटिक उद्देश्यों के लिए हैं और कार्यक्रम को प्रभावित किए बिना हटाया जा सकता है।
इसे ऑनलाइन आज़माएं!
व्याख्या
लिन {|}को अनुमति प्राप्त पात्रों की सूची से हटाने के बाद , मुझे कुछ नया करने की कोशिश करनी पड़ी। यह पता चला है कि हम अभी भी मनमाने ढंग से तारों का निर्माण कर सकते हैं और कोड के रूप में उनका मूल्यांकन कर सकते हैं।
सबसे पहले, हमें स्टैक पर कुछ मूल्य प्राप्त करने की आवश्यकता है। केवल उपलब्ध बिल्ट-इन जो पहले कुछ और (बिना इनपुट पढ़े) पॉपिंग के बिना कुछ को धक्का देते हैं es, eaऔर हैं et। मुझे यकीन है कि आप इन सभी तरीकों से या किसी अन्य से शुरू कर सकते हैं, लेकिन मैं उस समय के साथ चला गया esजो वर्तमान टाइमस्टैम्प को धक्का देता है। जब से मैं अपने वास्तविक मूल्य के बारे में कोई अनुमान नहीं करना चाहता था, मैं के साथ अपने primality परीक्षण mp(जो देता है 0और 1और) परीक्षण है कि मूल्य के primality फिर से सुनिश्चित करने के लिए मैं एक मिल गया है 0ढेर पर। ए 1अधिक उपयोगी होगा, इसलिए हम इसके exp(0)साथ गणना करते हैं meऔर इसे पूर्णांक में बदल देते हैं i। तो सभी संख्याएं इसके साथ शुरू होती हैं:
esmpmpmei
अब हमें एकजुट गणित संचालकों का एक पूरा समूह मिल गया है:
i int(x) (floor for positive numbers, ceiling for negative)
me exp(x)
ml ln(x)
mq sqrt(x)
mo round(x)
mt tan(x)
हम अधिक विस्तृत कार्यों के लिए कुछ बिल्ट-इन को भी जोड़ सकते हैं x:
sci Extract first digit of x and add 48 (convert to string, convert
to character, convert to integer).
ceui Convert to character, convert to upper case, convert to integer.
celi Convert to character, convert to lower case, convert to integer.
mfsi Get a sorted list of prime factors of x and concatenate them into
a new number.
mfseei Get a sorted list of prime factors, interleave it with 1,2,3,..., and
concatenate the result into a new number.
इनका उपयोग करके, हम 0 <= x < 12810 से कम चरणों में (और कई अन्य) संख्या प्राप्त कर सकते हैं 1। मुझे यकीन है कि इन आदेशों का बहुत छोटा हिस्सा भी पर्याप्त होगा। मैंने इन सभी स्निपेट्स को निर्धारित करने के लिए एक छोटा सा गणितज्ञ कार्यक्रम लिखा है (यह बहुत पढ़ने योग्य नहीं है, क्षमा करें):
codes = SortBy[
Select[Nest[Select[DeleteDuplicatesBy[SortBy[Join @@ (Through[{
List,
If[1 <= # < 50, {Exp@#, #2 <> "me"}, Nothing] &,
If[# >= 1, {Log@#, #2 <> "ml"}, Nothing] &,
If[# > 1, {Sqrt@#, #2 <> "mq"}, Nothing] &,
{If[# > 0, Floor@#, Ceiling@#], #2 <> "i"} &,
{Floor[# + 1/2], #2 <> "mo"} &,
{Tan@#, #2 <> "mt"} &,
If[NumberQ@# && # >= 0, {First@
ToCharacterCode@ToString@#, #2 <> "sci"},
Nothing] &,
If[IntegerQ@# &&
32 < # < 65536, {First@
ToCharacterCode@
ToUpperCase@FromCharacterCode@#, #2 <> "ceui"},
Nothing] &,
If[IntegerQ@# &&
32 < # < 65536, {First@
ToCharacterCode@
ToLowerCase@FromCharacterCode@#, #2 <> "celi"},
Nothing] &,
If[IntegerQ@# && # > 0, ## & @@ {
{FromDigits[
"" <> (ToString /@ (f =
Join @@ Table @@@ FactorInteger@#))], #2 <>
"mfsi"},
{FromDigits[
"" <> (ToString /@
MapIndexed[## & @@ {#2[[1]] - 1, #} &, f])], #2 <>
"mfeesi"}
}, Nothing] &
}@##] &) @@@ #, StringLength@*Last],
First], #[[1]] < 1000000 &] &, {{1, "esmpmpmei"}}, 9],
IntegerQ@# && 0 <= # < 128 &@*First], First]
इसके साथ, हम केवल वर्ण कोड की एक मनमानी सूची को आगे बढ़ा सकते हैं, उनमें से प्रत्येक को cबाद के चरित्र के साथ परिवर्तित कर सकते हैं । एक बार जब हम पूरे कोड को धक्का दे देते हैं, जिसे हम निष्पादित करना चाहते हैं, तो हम धक्का देते हैं 95( ])। हम ~एक स्ट्रिंग में अन्य सभी को लपेटने के साथ उसको निकालते हैं , और फिर हम उस स्ट्रिंग को एक साथ जोड़ते हैं ~।
कार्यक्रम के अंत में चलाया गया वास्तविक कोड फिर से है:
ri__2#,:)/2/[1W]f.%:~<p
स्पष्टीकरण के लिए मेरा पिछला समाधान देखें ।
¦काम करता है मुझे हर बार मारता है, मैं इस कल की कोशिश की लेकिन साथṚके बजायUऔर निर्णय लियाḤबाहर काम नहीं कर रहा था।