Đế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

#281 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 03 November 2012 - 12:51 AM

Anh Hoanghaiyp ơi, em Hoằn vẫn chưa biết cách làm video, em Hoằn định làm cái video cho hoành tráng nhưng anh đã nói thế, em Hoằn chiều ý của anh là mô tả bằng hình ảnh:
Hình đã gửiHình vẽ trên của em Hoằn vẽ bông hoa rau muống rừng. Lisp của em Hoằn có tên là lisp3Darray.
(Có thể array được Rectangular Array & Polar Array).
Ap > Load Lisp...>> Chọn bông hoa to >>> Gõ lệnh lisp....>>>> Được 64 bông hoa to => Xong phần Lisp!
(Lệnh AutoCAD >>>>>>>> Scale để được 64 bông hoa nhỏ).

Bữa trước anh Hà đã tóm sống em Hoằn, khi mang câu đố từ AutoCAD sang đây (Giải bằng lisp xem phía trên).
Câu đố vẽ các đường tiếp tuyến chung của hai hình ellipse của chị Haanh bên AutoCAD, Hoằn để lộ ra ở đây, cũng bị anh Hà tóm sống. (Xem lời giải ở phía trên)
Bữa ni với câu đố giải bằng lisp này không biết ai sẽ là người tóm sống em đây???
(Để giải đố chỉ cần vẽ khối vuông hoặc khối trụ đơn giản cũng được)

Hề hề hề,
Hoa chuối rừng thì may ra còn vẽ được chứ hoa rau muống này không dễ vẽ à nghen. Chả biết dùng lisp thì array có nhanh hơn Cad không ta, mà sao lại cứ phải lisp nhể????
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#282 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 03 November 2012 - 10:16 AM

Hề hề hề,
Hoa chuối rừng thì may ra còn vẽ được chứ hoa rau muống này không dễ vẽ à nghen. Chả biết dùng lisp thì array có nhanh hơn Cad không ta, mà sao lại cứ phải lisp nhể????

1-) Em xin lỗi anh Bình vì câu đố của em chưa rõ rành, em xin được đính chính:
Ap > Load Lisp...>> Chọn bông hoa to >>> Gõ lệnh lisp.... >>>>Chọn điểm chèn >>>> Được 64 bông hoa to => Xong phần
Lisp! (Lisp sẽ cho thêm 64 bông hoa nhỏ, bông hoa to vẫn còn)

Chị Hà em rất dị ứng với lisp, trong mục đố vui AutoCAD chị ấy đã đưa ra nhiều giải pháp vẽ AutoCAD vẽ nhanh hơn lisp. Vậy mà chị ấy lại bắt em phải học lisp mới oái ăm và nhắng chứ? Em đã phải học để chiều chị ấy... rồi thế nào mà em lại mê đọc lisp và mê luôn cả những người viết lisp theo yêu cầu nữa, anh ạ!
Nếu array trong AutoCAD sẽ mất nhiều thời gian thao tác:
Gõ lệnh array > chọn Rectangular Array >> Nhập số hàng, số cột >>>Nhập khoảng cách hàng, khoảng cách cột >>>>Chọn đối tượng >>>>>OK
2)- Đây là câu hỏi (a)- câu mở đầu, còn câu nâng cấp @ và câu nâng cấp © nữa, anh ạ!
Xin mời các anh và các bác tiếp tục thư giãn cho vui!
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#283 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 03 November 2012 - 10:25 AM

Túm cái bụp lại câu đố cái hoan2182 là viết lisp array 1 đối tượng theo dạng mảng với 8 cột, 8 hàng. Sau đó copy hết 64 đối tượng đó ra và scale đi 1 tỉ lệ cho trước phải không?
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#284 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 03 November 2012 - 10:28 AM

Không phải copy mà chỉ cần scale phóng to thu nhỏ tùy ý anh Duy ạ! (Giải đố chỉ cần vẽ khối trụ và khối hộp đơn giản)
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#285 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 03 November 2012 - 10:29 AM

Hoan nhầm to rồi. Trong trường hợp này bác Bình viết lisp cũng chỉ 2 nốt nhạc (như Ketxu đã từng nói), chỉ có điều dùng thì chẳng nhanh hơn.
Hoan đang thiếu các số liệu mà lisp phải nhập vào, ví dụ khoảng cách dòng/cột...
  • 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.


#286 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 03 November 2012 - 10:32 AM

Thấy bông hoa to vẫn còn mà ko copy thì như nào. Hay bông hoa to = đối tượng gốc để y chổ cũ?
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#287 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 03 November 2012 - 01:23 PM

Hoan nhầm to rồi. Trong trường hợp này bác Bình viết lisp cũng chỉ 2 nốt nhạc (như Ketxu đã từng nói), chỉ có điều dùng thì chẳng nhanh hơn.
Hoan đang thiếu các số liệu mà lisp phải nhập vào, ví dụ khoảng cách dòng/cột...

Nếu phải nhập số hàng, số cột, khoảng cách hàng và khoảng cách cột thì array trong AutoCAD luôn cho xong, khỏi cần phải viết lisp cho tốn dung lượng ổ! (Có nghĩa là đưa dữ liệu số hàng, cột, khoảng cách hàng và cột vào trong lisp, khi dụng lisp chỉ cần: Ap > Load Lisp...>> Chọn bông hoa to >>> Gõ lệnh lisp.... >>>>Chọn điểm chèn >>>> Được 64 bông hoa to => Xong !
[(2)- Đây là câu hỏi (a)- câu mở đầu, còn câu nâng cấp @ và câu nâng cấp © nữa, anh ạ!]
@Anh Duy: Bông hoa to là đối tượng gốc, sau khi thực hiện lệnh lisp bông hoa to vẫn ngồi...nghiêm một chỗ, lisp có nhiệm vụ array và sao chép nó ra thêm được 64 bông hoa to nữa, rồi dùng scale phóng to hay thu nhỏ thành 64 bông nhỏ tùy hứng...qua cầu gió bay...tung khăn ... anh ạ!
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#288 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 03 November 2012 - 02:43 PM

Nếu các thông số đều đưa sẵn vào lisp thì chỉ 3 dòng code liên quan tới 3 lệnh dưới đây thôi. Ai biết lisp cũng làm được hết:
copy
scale
array
  • 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.


#289 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 03 November 2012 - 11:28 PM

@anh Hà: Em cám ơn anh nhiều! Em không muốn đưa scale vào lisp. Lisp chỉ copy + array để tạo mảng sau đó em sẽ scale theo tỉ lệ phóng to hay thu nhỏ sau.

Hình đã gửi
(Vị trí điểm chèn em chọn bên ngoài ảnh, sau đó em mới move vào ảnh và cố tình cho bông bông hoa to che phần cuống hoa mầu xanh của 9 bông hoa to với mục đích là để trang trí ảnh)
Tiếp theo "câu mở đầu (a1)"
Câu đố (a2) : Viết lisp để từ 1 bông hoa gốc có được 64 bông hoa nhỏ và 9 bông hoa to???
Ap > Load Lisp...>> Gõ lệnh lisp...>>> Chọn bông hoa to >>>>Chọn điểm chèn là khoảng trống bên ngoài cách xa bông hoa gốc >>>> Được thêm 64 bông hoa nhỏ + 9 bông hoa to bằng hoa gốc (như hình vẽ)
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#290 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 06 November 2012 - 11:03 AM

Mục tiêu ra câu đố của em để tìm ra lời giải ngắn nhất, tức là lời giải ngắn hơn đáp án của người ra câu đố. Kết quả thu được từ việc ra câu đố của em và chị Haanh như sau:
1)- Anh Tuệ (Tue_NV): Ứng dụng lệnh -h để vẽ ô bàn cờ, ứng dụng lệnh `Cal để giải đố trong AutoCAD và cũng là người ra nhiều câu đố.
2)- Anh phamngoctukts có lời giải ngắn nhất trên AutoCAD và anh pdle có lời giải hay nhất bằng toán học: Vẽ đường vuông góc chung của hai đường thẳng chéo nhau trong không gian.
3)- Anh Hà (Doan Van Ha) có lời giải ngắn nhất trên Autocad: Vẽ các đường tiếp tuyến chung của hai hình ellipse
4)- Anh Bình (phamthanhbinh) đưa ra cách vẽ kiểu “chuối hột” ngắn nhất trên AutoCAD: Vẽ tiếp tuyến từ một điểm tới đường tròn. (Cách dựng này ứng dụng cho thợ lấy dấu dùng thước và com-pa dựng hình trên phôi liệu).

(Còn rất nhiều những những cái tên gần gũi thân quen nữa giải đố nữa như: anh ph168xd, chị svba1608, anh
binharch77 anh quygtvt, anh thiep, anh jick, anh xuantran15......)
Cảm ơn anh Pdle đã tạo nguồn cảm hứng cho em tập làm lisp vẽ 3D trong topic này: "[Hỏi] Lisp thao tác trong 3D" (Pdle).....http://www.cadviet.c...pic=43060&st=20
(Lâu rồi không thấy anh vào diễn đàn, nhớ quá cơ!)
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#291 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 07 November 2012 - 07:34 AM

Không bác nào giải câu đố a, em phải ra câu @ vậy
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#292 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 07 November 2012 - 08:04 AM

"Đố" và "Hỏi" khác nhau ở chỗ: "đố" là biết rồi, đem ra thử sức người khác có biết không, "hỏi" là chưa biết, đem ra để nhờ người biết chỉ giùm.
Ở đây, bạn xác định lại là "đố" hay "hỏi" nhé!
  • 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.


#293 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 07 November 2012 - 09:36 AM

"Đố" và "Hỏi" khác nhau ở chỗ: "đố" là biết rồi, đem ra thử sức người khác có biết không, "hỏi" là chưa biết, đem ra để nhờ người biết chỉ giùm.
Ở đây, bạn xác định lại là "đố" hay "hỏi" nhé!

1). Ở đây là câu đố anh Hà ạ, Mục tiêu ra câu đố của em để tìm ra lời giải ngắn nhất, tức là lời giải ngắn hơn đáp án của người ra câu đố. Chị Hà em thì nói là khuấy động phong trào khai thác hết công suất và tiềm năm của AutoCAD.
Bữa trước khi ra câu đố a2, em có mở cái ngoặc đơn đính kèm ...câu hỏi. Sau rồi nghĩ lại, em chỉ lo sợ anh Ketxu oánh cho thì chết, em đã phải chuyển vội câu hỏi đó thành:[Làm ơn] Viết giúp em lisp đưa mặt 3D có Z ≠ 0 về Z = 0 . Em nó đây ạ : http://www.cadviet.c...showtopic=67470

2). Lại nói về câu đố vẽ giao tuyến chung giữa 2 hình ellipse . Em đã nói ở trang trang trước rồi: " chị Hà em sẽ ra câu đố về vẽ các đường tiếp tuyến chung giữa hai em... lip ( hình ellipse) có vị trí bất kỳ. Em vẫn chưa biết cách làm đâu, hỏi chị Hà em, chị không nói bắt em phải tự nghĩ .Thôi thì tiện đây em cũng cầm đèn chạy trước xe tăng, nhờ anh viết luôn lisp nhé, em thích lisp lắm!"
3). Lại nói về câu đố vẽ đường thẳng tiếp xúc với đường spline và song song với đoạn thẳng đã cho>Chị Hà em nói là chắc chắn anh Tuệ sẽ có lời giải bằng cách vẽ AutCAD đời cũ, chị Hà em cứ thắc mắc hoài, nghĩ rằng (về cách nói năng trên diễn đàn của chị Hà em hay tếu táo sợ gây hiểu lầm, nên anh Tuệ không thèm giải đố. Cách vẽ trong AutoCAD đời cũ thì em đã mò ra rồi, bắt đầu lệnh trim cắt ngắn hai đầu spline, sau đó là mi theo cạnh của khung tên để thành một khung bản vẽ có hình đối xứng ....>> Vào mặt Font thao tác ...>>> rồi chuyển về mặt Top rồi kết thúc bằng lệnh mi 2 đường tiếp xúc đã vẽ được theo cạnh của khung bản vẽ >Xong!
(Chị Hà em là người lọ mọ hay mầy mò, và chị ấy đã mò mẫm được khá nhiều cách vẽ CAD nhanh hơn lisp)
4). Lại nói về câu đố vẽ tiếp tuyến từ một điểm đến đường tròn. Nguồn gốc là câu hỏi trên diễn đàn, em đã đưa ra cách làm hơi bị dài. Sau em chợt nhớ đến anh Bình là anh ấy hay trả lời các bài dựng hình. Em nghĩ, chắc chắn anh Bình sẽ đưa ra cách làm hay , nên em đã chuyển sang đố vui.
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#294 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 08 November 2012 - 11:25 AM

Hình đã gửi
Câu đố @: Viết lisp để từ 1 bông hoa gốc có được các hình như ảnh với điều kiện số ký tự dùng trong lisp là ít nhất???
Lisp có đính kèm các chức năng tùy chọn:
-Thay đổi được số hàng, số cột và khoảng cách giữa các hàng, các cột
-Thay đối số đối tượng array và tỉ lệ scale
-Thay đổi góc độ xoay trong mặt phẳng Top và Left
Ap > Load Lisp...>> Gõ lệnh lisp.... lựa chọn… .>>>Chọn bông hoa to >>>> Chọn điểm chèn bên ngoài bông hoa gốc >>>> Xong!
Xin mời các bác cùng thư giãn cho vui!
(Khác với câu đố a là câu đố @ : gõ lệnh trước, chọn đối tượng sau; câu đố a ở trện : chọn đối tượng trước, gõ lệnh sau).
  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#295 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 17 November 2012 - 02:09 PM

Không thấy bác nào vào thư giãn với lisp3D, nản quá!
  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#296 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 05 December 2012 - 02:12 PM

Không thấy bác nào vào thư giãn với lisp3D, nản quá!


  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#297 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 December 2012 - 02:17 PM

Hoằn thử làm cái video xem nó làm như thế nào ^^ Mình dốt 3D nên cứ sợ, không tưởng tượng được :(
  • 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


#298 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 05 December 2012 - 02:46 PM

Hoằn thử làm cái video xem nó làm như thế nào ^^ Mình dốt 3D nên cứ sợ, không tưởng tượng được :(

Em sẽ gửi lên sau anh ạ! Em muốn mọi người cùng khám phá, cùng khai thác hết tiềm năng của Autocad và Autolisp... :rolleyes: :rolleyes: mới vui chứ mình em vừa đánh trống vừa thổi kèn ...buồn cười lắm!
Em không chơi kiểu ăn gian đâu anh đừng lo nhé! Tỉ như câu đố của chị Hà em trong chủ đề này là vẽ nhanh các đường tiếp tuyến giữa 2 hình Ellipse, anh Hà đưa ra câu giả nhời đúng, em phải thừa nhận là cách làm của anh Hà chuẩn không cần chỉnh, nhanh hơn đáp án. Lương tâm em không cho phép em nói dối nói điêu là đáp án của anh Hà trúng ý của em!
  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#299 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 05 December 2012 - 02:57 PM

Mục tiêu ra câu đố của em để tìm ra lời giải ngắn nhất, tức là lời giải ngắn hơn đáp án của người ra câu đố. Kết quả thu được từ việc ra câu đố của em và chị Haanh như sau:
1)- Anh Tuệ (Tue_NV): Ứng dụng lệnh -h để vẽ ô bàn cờ, ứng dụng lệnh `Cal để giải đố trong AutoCAD và cũng là người ra nhiều câu đố.
2)- Anh phamngoctukts có lời giải ngắn nhất trên AutoCAD và anh pdle có lời giải hay nhất bằng toán học: Vẽ đường vuông góc chung của hai đường thẳng chéo nhau trong không gian.
3)- Anh Hà (Doan Van Ha) có lời giải ngắn nhất trên Autocad: Vẽ các đường tiếp tuyến chung của hai hình ellipse
4)- Anh Bình (phamthanhbinh) đưa ra cách vẽ kiểu “chuối hột” ngắn nhất trên AutoCAD: Vẽ tiếp tuyến từ một điểm tới đường tròn. (Cách dựng này ứng dụng cho thợ lấy dấu dùng thước và com-pa dựng hình trên phôi liệu).

(Còn rất nhiều những những cái tên gần gũi thân quen nữa giải đố nữa như: anh ph168xd, chị svba1608, anh
binharch77 anh quygtvt, anh thiep, anh jick, anh xuantran15......)
Cảm ơn anh Pdle đã tạo nguồn cảm hứng cho em tập làm lisp vẽ 3D trong topic này: "[Hỏi] Lisp thao tác trong 3D" (Pdle).....http://www.cadviet.c...pic=43060&st=20
(Lâu rồi không thấy anh vào diễn đàn, nhớ quá cơ!)


  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#300 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 11 March 2013 - 11:56 AM

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.


  • 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.