Elemento lista

Ver el tema anterior Ver el tema siguiente Ir abajo

Elemento lista

Mensaje por amc.dicsac el Mar Jun 14, 2016 7:37 pm

Hola que tal alguien me podria decir como puedo saber si un elemento pertenece a una lista.

Gracias =)
avatar
amc.dicsac

Mensajes : 76
Fecha de inscripción : 17/03/2016
Edad : 26
Localización : Lima - Perú

Ver perfil de usuario http://axprogramlisp.blogspot.pe/

Volver arriba Ir abajo

Re: Elemento lista

Mensaje por robierzo el Mar Jun 14, 2016 11:12 pm

Utilizando MEMBER.

Código:
(if (member elemento lista) (princ"Sí está") (princ "No está"))
avatar
robierzo

Mensajes : 36
Fecha de inscripción : 17/03/2016
Localización : La Coruña

Ver perfil de usuario http://www.selmotopografia.es

Volver arriba Ir abajo

Re: Elemento lista

Mensaje por Dominguez el Vie Jun 24, 2016 11:24 am

Resumen de MEMBER
Código:
"(member expresión lista)" "Comprueba si un elemento forma parte de una lista."
              "Busca en una lista un elemento y devuelve el resto de la lista a partir de ese elemento (incluido el mismo) hasta el final."
              "Si el elemento se repite en la lista, MEMBER busca la primera aparición y devuelve el resto de la lista"
              "(member  'd  '(a  b  c  d  e  f  g  h  i  j  k))  (D E F G H I J K)"
              "(member  'h  '(a  b  c  d  e  f  g  h  i  j  k))  (H I J K)"
              "(member  'x  '(a  b  c  d  e  f  g  h  i  j  k))  nil"
avatar
Dominguez

Mensajes : 50
Fecha de inscripción : 20/03/2016
Edad : 67
Localización : Zaragoza (España)

Ver perfil de usuario

Volver arriba Ir abajo

Re: Elemento lista

Mensaje por amc.dicsac el Vie Mar 17, 2017 8:48 pm

Despues de estar pensando, pude crear una subfunción que devuelve T si el elemento pertence a la lista y NIL si es lo contrario.

Código:

;;--------------------------------------------------------;;
;; AX:ProgramLisp                                                ;;
;; SubFuncion para encontrar elemento de una lista     ;;
;; Devuelve T si existe y NIL si no existe                    ;;
;; e   --> string                                                    ;;
;; lst --> list '( "a" "b" "c")                                    ;;
;;--------------------------------------------------------;;
  
(defun 2ap_SubFun_Findlist (e lst)
  (and e
       (member e lst)
       )
  )
avatar
amc.dicsac

Mensajes : 76
Fecha de inscripción : 17/03/2016
Edad : 26
Localización : Lima - Perú

Ver perfil de usuario http://axprogramlisp.blogspot.pe/

Volver arriba Ir abajo

Re: Elemento lista

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.