[ Hỏi về Lisp] Tách 1234 thành 1 và 2 và 3 và 4

[anhGeodesy 2]

Các bác cho em hỏi cách tách số 1234 gán vào các biến a=1, b=2, c=3, d=4 . cảm ơn các bác!

[cuongtk2 332]

Thử cái này:

(setq ls (mapcar '(lambda (e) (chr e)) (VL-STRING->LIST "12345678")))

[thiep 365]

23 giờ trước, anhGeodesy đã nói:

Các bác cho em hỏi cách tách số 1234 gán vào các biến a=1, b=2, c=3, d=4 . cảm ơn các bác!

(defun setq_split_strnum (str / n m ls)
    (setq n -1 m 96)
    (setq ls (mapcar 'chr (vl-string->list str))) 
    (repeat (length ls)
        (set (read (chr (setq m (1+ m)))) (atoi (nth (setq n (1+ n)) ls)))        
    )
)

Bạn dùng hàm này với biến str là một chuỗi số. Hàm gán giá trị từng con số trong biến str vào các biến

a = ...

b=...

c=...

....

z=...

Có thể gán giá trị đến 26 biến a, b, c,...z như ý muốn của bạn.

[Doan Van Ha 3.180]

Công nhận mọi người hiểu đề bài nhanh thiệt!
Tui đọc hoài cũng không hiểu 1234 là string hay integer, hoặc a/b/c/d là gì? Và chúng nằm ở đâu?

[thiep 365]

11 giờ trước, Doan Van Ha đã nói:

Công nhận mọi người hiểu đề bài nhanh thiệt!
Tui đọc hoài cũng không hiểu 1234 là string hay integer, hoặc a/b/c/d là gì? Và chúng nằm ở đâu?

Lâu rồi cũng quen với những kiểu đặt đề bài lưng lửng. Thời đại 4.0 mà @Doan Van Ha

[cuongtk2 332]

Uống vài viên hoạt huyết là hiểu được thôi bác.

[huunhantvxdts 195]

Đăng 1 bài lên cho các bác giải trí. Chủ topic "Tui" đi du xuân cái đã!!!!

[anhGeodesy 2]

Vào lúc 15/2/2022 tại 16:50, thiep đã nói:

• cadvietlisp.lsp
  
• [✎]
   

(defun setq_split_strnum (str / n m ls)
    (setq n -1 m 96)
    (setq ls (mapcar 'chr (vl-string->list str))) 
    (repeat (length ls)
        (set (read (chr (setq m (1+ m)))) (atoi (nth (setq n (1+ n)) ls)))        
    )
)

Bạn dùng hàm này với biến str là một chuỗi số. Hàm gán giá trị từng con số trong biến str vào các biến

a = ...

b=...

c=...

....

z=...

Có thể gán giá trị đến 26 biến a, b, c,...z như ý muốn của bạn.

(setq lst (list))
    (repeat (length ls)
        (setq lst (append lst (list (set (read (chr (setq m (1+ m)))) (atoi (nth (setq n (1+ n)) ls))))))
         
    )

 

Cảm ơn bác @thiep   - Như này là tách đc rồi. cảm ơn Bác nhiều.

[ketxu 2.983]

;(foo "abcde" '(biena bienb c d e))
(defun foo (str lstVar / i n)
	(setq i -1 n (min (strlen str) (length lstVar)))
	(while 	(< (setq i (1+ i)) n)
		(set (nth i lstVar) (substr str (1+ i) 1))
	)
)

Không giới hạn biến và chuỗi thì ket nghĩ ntn tiện hơn