Đến nội dung


Hình ảnh
* * * * - 7 Bình chọn

[Hỏi]Đố vui với LISP


  • Please log in to reply
391 replies to this topic

#301 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 11 March 2013 - 02:50 PM


[

Topic dạo này đìu hiu quá. Đốt nóng bằng 1 câu đố vui xem sao:

Tôi có 1 list gồm các string. Mỗi string chứa các nhóm ký tự cách nhau bởi 1 dấu chấm (.), ví dụ:

("12.a.3" "1a2.b.47.666" "xy.312.45")

Hãy lập hàm tạo list từ list đã có, thỏa mãn: mỗi phần tử đều bị cắt đuôi từ dấu chấm cuối cùng trở về sau, ví dụ tạo thành:

("12.a" "1a2.b.47" "xy.312")

Điều kiện: sử dụng càng ít cặp dấu ngoặc () càng tốt.

Được 5 cặp ( )  :lol: 
 
(mapcar '(lambda(x)  (substr x 1 (vl-string-position 46 x 1 9999999999999999))  ) lst)

  • 1

#302 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 11 March 2013 - 02:58 PM

Thanks! Nhưng... lê thê quá! :lol:


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#303 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 11 March 2013 - 03:06 PM

"Lê thê" tức là nhiều cặp () hở bác ?

P/A của bác ít cặp ( ) hơn à?


  • 0

#304 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 11 March 2013 - 03:09 PM

"Lê thê" tức là nhiều cặp () hở bác ?

Vâng, nhiều () quá!


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#305 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 11 March 2013 - 03:57 PM

Có 5 cặp () chớ mấy..  :lol: 

Phương án của bác ít cặp () hơn thì Tue_NV đành chờ kết quả của PA của bác vậy   :lol:


  • 0

#306 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 13 March 2013 - 08:35 PM

Vâng, nhiều () quá!

 

Cũng đã 2 ngày trôi qua, mời bác DVH đưa ra đáp án ^_^


  • 0

#307 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 14 March 2013 - 10:44 AM

Đáp án câu đố "vui":

(mapcar 'vl-filename-base lst)


  • 2

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#308 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 25 May 2013 - 04:25 PM

Topic dạo này im ắng quá! Khơi dậy bằng 1 câu đố vui.

Viết 1 lisp thỏa mãn y/c cầu sau:

Nhập vào 1 thì trả về "AA".

Nhập vào 2 thì trả về "BB".

Nhập vào 3 thì trả về "CC".

...

Nhập vào 9 thì trả về "JJ".

(có tất cả 9 tùy chọn).

Điều kiện: số cặp dấu () càng ít càng hay.
P/S: điều kiện nhận like: số cặp () phải < 2 lần số cặp () của tác giả.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#309 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 25 May 2013 - 04:33 PM

Nếu 9 về I thì ket còn luận ra, khó quá ^^


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#310 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 25 May 2013 - 04:38 PM

Nếu 9 về I thì ket còn luận ra, khó quá ^^

Ket giỡn hay Ket đùa đây? 9 về 1 khác 1 1 về 9? Xem lại câu đố có sửa tí + thêm đ/k nhận like.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#311 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 25 May 2013 - 04:48 PM

9 về chữ "I" cơ ^^   . Có máy là phải thử đề này xem sao @@


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#312 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 25 May 2013 - 04:58 PM

Topic dạo này im ắng quá! Khơi dậy bằng 1 câu đố vui.

Viết 1 lisp thỏa mãn y/c cầu sau:

Nhập vào 1 thì trả về "AA".

Nhập vào 2 thì trả về "BB".

Nhập vào 3 thì trả về "CC".

...

Nhập vào 9 thì trả về "JJ".

(có tất cả 9 tùy chọn).

Điều kiện: số cặp dấu () càng ít càng hay.
P/S: điều kiện nhận like: số cặp () phải < 2 lần số cặp () của tác giả.

 

Sài củ chuối này cũng được  :D

 
(cadr(member (getint "\nNhap so :") '(1 "AA" 2 "BB" 3 "CC" 4 "DD" 5 "EE" 6 "FF" 7 "GG" 8 "HH" 9 "II")))

  • 1

#313 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 107 (tàm tạm)

Đã gửi 25 May 2013 - 07:07 PM

(nth (getint "\nNhap so") (list "" "AA" "BB" "CC" "DD" "EE" "FF" "GG" "HH" "II" "JJ"))
  • 2

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#314 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 25 May 2013 - 08:47 PM

Đấy, ai cũng 9 về II kìa bác ơi ^^ Mà nth tính từ 0 mà bác HH ơi
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#315 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 107 (tàm tạm)

Đã gửi 25 May 2013 - 09:49 PM

 

Đấy, ai cũng 9 về II kìa bác ơi ^^ Mà nth tính từ 0 mà bác HH ơi

1: AA ...9:II đúng rồi. Cái ni là người ra đề bị nhầm thôi
Vì nth tính từ 0 cho nên list của mình chêm vào ký tự đầu tiên là "" rồi mới "AA" ...
Cũng nhờ ăn gian như vậy mới hơn ketxu được 1 cặp ngoặc đấy. Hì
  • 0

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#316 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 26 May 2013 - 06:36 AM

Cái đề bác DVH ra có 9 tuỳ chọn thôi thì ít lắm.

Tue_NV ra lại đề này

Viết 1 lisp thỏa mãn y/c cầu sau:

Nhập vào 12 thì trả về "AB".

Nhập vào 23 thì trả về "BC".

Nhập vào 34 thì trả về "CD"

....

Nhập vào 89 thì trả về "HI"

......

Vị trí có thể đảo lộn, xáo trộn trong đó.

Ví dụ :

- Nhập vào 13 thì trả về "AC".

- Nhập vào 42 thì trả về "DB".

- Nhập vào 92 thì trả về "IB".

............


  • 0

#317 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 26 May 2013 - 08:00 AM

Ngắn như không thể ngắn hơn:

(vl-string-translate "123456789" "ABCDEFGHI" (getstring "\nNhap so: "))

(vl-string-translate "123456789" "ABCDEFGHI" (getstring "\nNhap so: "))
 
(vl-string-translate "123456789123456789" "abcdefghiABCDEFGHI" 
(getstring "\nNhap so: "))

  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#318 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 107 (tàm tạm)

Đã gửi 26 May 2013 - 09:22 AM

Sai rồi ĐVH ơi!

Lisp nhập 1 chỉ cho kết quả "A"

Còn đề thì phải cho "AA"


  • 0

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#319 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 26 May 2013 - 09:26 AM

Sai rồi ĐVH ơi!

Lisp nhập 1 chỉ cho kết quả "A"

Còn đề thì phải cho "AA"

 

Bác DVH trả lời đúng rồi bạn. Đã vote cho bác DVH


  • 0

#320 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 26 May 2013 - 09:29 AM

Sai rồi ĐVH ơi!

Lisp nhập 1 chỉ cho kết quả "A"

Còn đề thì phải cho "AA"

Tôi trả lời câu đố của bác Tue_NV, còn đáp án của tôi thì chưa đưa lên. Sau khi đưa lên mới vote nếu đạt y/c.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.