lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Lista Forumurilor Pe Tematici
|
lisp2arx | Reguli | Inregistrare | Login
POZE LISP2ARX
Nu sunteti logat.
|
Nou pe simpatie:
surender_lady
 | Femeie
25 ani
Arad
cauta Barbat
26 - 47 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 13 ani
Postari: 516
|
|
strncmp — Binary safe string comparison of the first n characters
Code:
(defun php_strncmp (s1 s2 n_ifonlygreat0 / $rr aro arj )
(if (> n_ifonlygreat0 0) (setq s1 (substr s1 n_ifonlygreat0) s2 (substr s2 n_ifonlygreat0)))
(if (strlen s1
(and
(= (strlen s1) (strlen s2))
(vl-every '(lambda (a b)
(or (= a b) (= (+ a 32) b) (= a (+ 32 b)))
) ;_ end of lambda
(vl-string->list s1)
(vl-string->list s2)
) ;_ end of vl-every
) ;
)
Aici trebuie rotit daca lungimea lui s1 > s2 atunci, sau daca lungimea s2 > s1. |
Checks whether the predicate is true for every element combination
// Inf vl-every predicate-function list [list]...)
The vl-every function passes the first element of each supplied list as an argument to the test function, followed by the next element from each list, and so on. Evaluation stops as soon as one of the lists runs out.
Code:
_$ (vl-every '= '(1 2) '(1 3)) ==> nil
_$ (vl-every '= '(1 2) '(1 2 3)) ==> T |
The first expression returned nil because vl-every compared the second element in each list and they were not numerically equal. The second expression returned T because vl-every stopped comparing elements after it had processed all the elements in the shorter list (1 2), at which point the lists were numerically equal. If the end of a list is reached, vl-every returns a non-nil value.
Code:
(defun php_stricomp (s1 s2 n / $rr $a1)
(and
(= (strlen s1) (strlen s2))
(vl-every '(lambda (a b)
(or (= a b) (= (+ a 32) b) (= a (+ 32 b)))
) ;_ end of lambda
(vl-string->list s1)
(vl-string->list s2)
) ;_ end of vl-every
) ;
) |
Code:
Trebuie intrebata comunitatea Dracilor!! daca tu nu stii cum, atunci tu citeste cărtile lui Sofian Boghiu si 2carti3 lui popa Argatu.de la Cernica-ortodox. Iubitul tau are examene de capacitate in săngele dracilor, iar daca el pică aceste examene (cu note 2..4) drăcesti .. va fi vaiete, vaiete si vaiete, vaiete, vaiete. Doamne milueste-ne. Eu zic obligatoriu, foarte urgent (upu) pentru tine, 3carti ortodoxe, ale ambiilor popii ortodoxe de mai sus trebuie citite foarte exactç cartile-le amesteci capitolele cum vrei si cum poti tu lectura. Doamne milueste-ne.Doamne milueste-ne pe noi păcăitosii-- eu sunt un păcătos. |
_______________________________________
|
|
| pus acum 4 ani |
|