पुनरावृत्ति का उपयोग करके 1 से 10 तक संख्याओं को मुद्रित करने के लिए प्रोलॉग में प्रोग्राम को आप कैसे कोड करेंगे?

Question

पुनरावृत्ति का उपयोग करके 1 से 10 तक संख्याओं को मुद्रित करने के लिए प्रोलॉग में प्रोग्राम को आप कैसे कोड करेंगे?

मैंने निम्नलिखित की कोशिश की है लेकिन यह काम नहीं करता है, क्या आप मुझे बता सकते हैं क्यों?

print_numbers(10) :- write(10). 

print_numbers(X) :- write(X),nl,X is X + 1, print_numbers(X). 

Answer 1

एक गंभीरता से लंबे समय के बाद से मैं किसी भी prolog लिखा गया है, लेकिन मैं शायद सिर्फ थोड़ा अलग तरह से काम करते हैं चाहते हैं। ऐसा कुछ, हालांकि मैं इसे माँ पर परीक्षण नहीं कर सकता।

print_increasing_numbers(From, To):- From > To, !, write('ERROR: From > To'). 

print_increasing_numbers(To, To):- !, write(To). 

print_increasing_numbers(From, To):- write(From), 
            nl, 
            Next is From + 1, 
            print_increasing_numbers(Next, To). 

यहाँ एक महत्वपूर्ण अंतर !, या कटौती ऑपरेशन है, जो उलटे पांव लौटने से बंद हो जाता है है। यदि आप इसे शामिल नहीं करते हैं तो आपको पहले खंड के साथ समाधान मिलेगा जब X 10 है, लेकिन यदि आप दूसरे समाधान के लिए पूछते हैं तो यह दूसरे खंड के साथ बैकट्रैक और मिलान करेगा। इसके परिणामस्वरूप आप चाहते हैं कि संख्याओं की एक बड़ी सूची होगी।

Answer 2

आपका कोड काम करने के बहुत करीब है। समस्या यह है कि जब आप तुरंत चालू हो जाते हैं, तो आप X का पुन: उपयोग नहीं कर सकते हैं, इसे बदला नहीं जा सकता है (अधिक जानकारी के लिए here देखें)। अंत करने के लिए

print_numbers(10) :- write(10), !. 
print_numbers(X) :- write(X), nl, Next is X + 1, print_numbers(Next). 

कटौती को जोड़ने से यदि आप और अधिक परिणाम देखना चाहते हैं पूछ से दुभाषिया पाएगा (!): एक नया वेरिएबल, इस तरह का प्रयोग करें।

?- print_numbers(1). 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

Yes 
?- 

Answer 3

print_from_1_to_10 :- 
     print_from_X_to_10(1). 

print_from_X_to_10(X) :- 
     (
       X > 10 
     -> 
       fail 
     ; 
       writeln(X), 
       NewX is X + 1, 
       print_from_X_to_10(NewX) 
     ).