LISP - विधेय

विधेय ऐसे कार्य हैं जो कुछ विशिष्ट स्थितियों के लिए अपने तर्कों का परीक्षण करते हैं और यदि स्थिति झूठी है, या कुछ गैर-शून्य मान है तो स्थिति सत्य है।

निम्न तालिका कुछ सबसे अधिक इस्तेमाल की जाने वाली भविष्यवाणी को दर्शाती है -

अनु क्रमांक। समर्पित करें और विवरण दें
1

atom

यह एक तर्क लेता है और यदि तर्क एक परमाणु या शून्य है तो अन्यथा वापस आ जाता है।

2

equal

इसमें दो तर्क और रिटर्न लगते हैं t यदि वे संरचनात्मक रूप से समान हैं या nil अन्यथा।

3

eq

इसमें दो तर्क और रिटर्न लगते हैं t यदि वे एक ही समान ऑब्जेक्ट हैं, तो समान मेमोरी लोकेशन साझा करना या nil अन्यथा।

4

eql

इसमें दो तर्क और रिटर्न लगते हैं t यदि तर्क हैं eq, या यदि वे एक ही मूल्य के साथ एक ही प्रकार के नंबर हैं, या यदि वे चरित्र ऑब्जेक्ट हैं जो एक ही चरित्र का प्रतिनिधित्व करते हैं, या nil अन्यथा।

5

evenp

यह एक संख्यात्मक तर्क और रिटर्न लेता है t यदि तर्क संख्या या है nil यदि अन्यथा।

6

oddp

यह एक संख्यात्मक तर्क और रिटर्न लेता है t यदि तर्क विषम संख्या है या nil यदि अन्यथा।

7

zerop

यह एक संख्यात्मक तर्क और रिटर्न लेता है t यदि तर्क शून्य है या nil यदि अन्यथा।

8

null

यह एक तर्क और रिटर्न लेता है t यदि तर्क शून्य का मूल्यांकन करता है, अन्यथा यह वापस आ जाता है nil

9

listp

यह एक तर्क और रिटर्न लेता है t यदि तर्क किसी सूची का मूल्यांकन करता है अन्यथा वह वापस आ जाता है nil

10

greaterp

यह एक या अधिक तर्क लेता है और रिटर्न करता है t यदि या तो एक ही तर्क है या तर्क क्रमिक रूप से बाएं से दाएं बड़ा है, या nil यदि अन्यथा।

1 1

lessp

यह एक या अधिक तर्क लेता है और रिटर्न करता है t यदि या तो कोई तर्क है या तर्क क्रमिक रूप से बाएं से दाएं छोटे हैं, या nil यदि अन्यथा।

12

numberp

यह एक तर्क और रिटर्न लेता है t यदि तर्क एक संख्या है या nil यदि अन्यथा।

13

symbolp

यह एक तर्क और रिटर्न लेता है t यदि तर्क एक प्रतीक है अन्यथा यह वापस आ जाता है nil

14

integerp

यह एक तर्क और रिटर्न लेता है t यदि तर्क पूर्णांक है, तो यह वापस आ जाता है nil

15

rationalp

यह एक तर्क और रिटर्न लेता है t यदि तर्क तर्कसंगत संख्या है, तो अनुपात या संख्या, अन्यथा यह वापस आ जाती है nil

16

floatp

यह एक तर्क और रिटर्न लेता है t यदि तर्क एक अस्थायी बिंदु संख्या है अन्यथा यह वापस आ जाता है nil

17

realp

यह एक तर्क और रिटर्न लेता है t यदि तर्क एक वास्तविक संख्या है अन्यथा यह वापस आ जाता है nil

18

complexp

यह एक तर्क और रिटर्न लेता है t यदि तर्क एक जटिल संख्या है अन्यथा यह वापस आ जाती है nil.

19

characterp

यह एक तर्क और रिटर्न लेता है t यदि तर्क एक चरित्र है अन्यथा यह वापस आ जाता है nil

20

stringp

यह एक तर्क और रिटर्न लेता है t यदि तर्क एक स्ट्रिंग ऑब्जेक्ट है अन्यथा यह वापस आ जाता है nil

21

arrayp

यह एक तर्क और रिटर्न लेता है t यदि तर्क एक सरणी वस्तु है अन्यथा यह वापस आ जाती है nil

22

packagep

यह एक तर्क और रिटर्न लेता है t यदि तर्क एक पैकेज है अन्यथा यह वापस आ जाता है nil.

उदाहरण 1

Main.lisp नाम से एक नया सोर्स कोड फ़ाइल बनाएँ और उसमें निम्न कोड टाइप करें।

(write (atom 'abcd))
(terpri)
(write (equal 'a 'b))
(terpri)
(write (evenp 10))
(terpri)
(write (evenp 7 ))
(terpri)
(write (oddp 7 ))
(terpri)
(write (zerop 0.0000000001))
(terpri)
(write (eq 3 3.0 ))
(terpri)
(write (equal 3 3.0 ))
(terpri)
(write (null nil ))

जब आप कोड निष्पादित करते हैं, तो यह निम्न परिणाम देता है -

T
NIL
T
NIL
T
NIL
NIL
NIL
T

उदाहरण 2

Main.lisp नाम से एक नया सोर्स कोड फ़ाइल बनाएँ और उसमें निम्न कोड टाइप करें।

(defun factorial (num)
   (cond ((zerop num) 1)
      (t ( * num (factorial (- num 1))))
   )
)
(setq n 6)
(format t "~% Factorial ~d is: ~d" n (factorial n))

जब आप कोड निष्पादित करते हैं, तो यह निम्न परिणाम देता है -

Factorial 6 is: 720