| 이전 주제 보기 :: 다음 주제 보기 |
| 글쓴이 |
메시지 |
현.철
가입: 2011년 9월 27일 올린 글: 35
|
올려짐: 2011년10월19일 12:36 주제: 4-1번 숙제 유강민님에 더해서 테스트 셋 하나 더해봅니다. |
|
|
(define list-length 10)
(_m 23 (smatch (append (_iter (list 1) list-length) (list 2)) (star (dot (star (atom 1)) (star (atom 1))))) #f)
유강민님 테스트에 아래에 덧붙이시면 됩니다.
저는 저 list-length가 20만 되어도 버벅이기 시작하네요 ㅠ.. 어렵습니다.
그리고 매번 테스트셋을 제공해주시는 유강민님 다시 한 번 감사드립니다. |
|
| 위로 |
|
 |
이태영
가입: 2011년 9월 19일 올린 글: 34
|
올려짐: 2011년10월20일 21:51 주제: |
|
|
테스트셋 제공 감사합니다^^
list-length를 100,000으로 놓으면 수행시간이 10초 정도 걸리는데, star와 관련된 함수를 좀 다듬어보시는게 어떨까요? |
|
| 위로 |
|
 |
현.철
가입: 2011년 9월 27일 올린 글: 35
|
올려짐: 2011년10월20일 22:51 주제: 우와아! |
|
|
전 거의 코드베이스를 다 들어내서 겨우 200정도에서야 어느 정도 나오도록 했는데요.
숙제 제출 기간 끝나면 어떻게 하셨는지 여쭈어봐도 될까요? |
|
| 위로 |
|
 |
이태영
가입: 2011년 9월 19일 올린 글: 34
|
올려짐: 2011년10월21일 10:35 주제: |
|
|
네 괜찮습니다  |
|
| 위로 |
|
 |
현.철
가입: 2011년 9월 27일 올린 글: 35
|
올려짐: 2011년10월21일 11:27 주제: 감사합니다 |
|
|
| 어찌저찌해서 10000까진 올렸는데 그 이상은 저는 구현 방식으로 인한 메모리 문제 때문에 더 올리긴 힘들 것 같네요ㅠㅠㅠㅠ |
|
| 위로 |
|
 |
이태영
가입: 2011년 9월 19일 올린 글: 34
|
올려짐: 2011년10월21일 14:27 주제: |
|
|
작년에 올려진 extreme case인데, 이 코드는 수행시간이 어느 정도 걸리시나요?
| 코드: |
(define lst1 (list 1 2 2 2 9 9 9 9 9 9 9 0 2 2 2 2 2 9 9 0 3 8 9 0 0 2 3 9 0 0 2 2 2 2 2 2 3 7 0 3 6 3 0 3 2 3 0 2 3 9 0 6 5 4 2 0 2 2 2 2 2 3 9 9 9 0 3 8 7 5 2 0 3 2 2 2 2 2))
(define code1 (star (bar (bar (star (atom 1))
(bar (star (atom 2))
(bar (optional (atom 3))
(bar (star (atom 4))
(bar (star (atom 5))
(bar (star (atom 6))
(bar (star (atom 7))
(bar (star (atom 8))
(dot (atom 9)
(dot (star (atom 9))
(atom 0)))))))))))
(dot (atom 0)
(dot (star (atom 2)) (atom 3))))))
(smatch (append (append lst1 lst1) (append lst1 lst1)) code1)
;#t
(smatch (list 1 2 1 1 2 2 2 9 9 9 9 9 9 9 9 9 9 0 2 2 2 2 2 9 9 0 3 8 7 6 3 2 3 0 2 3 9 0 6 5 4 2 0 2 2 2 2 2 2 2 9 9 9 0 3 8 7 4 2 7 5 2 0 3 2 2 2 2 2) code1)
;#f
|
작년 조교님의 솔루션으로는 40초 정도 걸리셨다는데, 제 코드는 1초 안쪽으로 나오거든요. 제 솔루션이 작년 조교님의 것보다 심하게 빠를 리가 없을 것 같아서-_-..;;혹시 제가 코드를 엉성하게 짜서 그냥 아무렇게나 답을 뱉어버리는 프로그램이 나왔을 수도 있으니까요ㅠㅠ 시간이 되면 확인해보시겠어요? |
|
| 위로 |
|
 |
현.철
가입: 2011년 9월 27일 올린 글: 35
|
올려짐: 2011년10월21일 19:27 주제: ㄹ |
|
|
저도 이건 1초만에 나오긴 하네요..
(define list-length 10000)
(_m 24 (smatch (append (_iter (list 1) list-length) (list 2)) (star (dot (star (atom 1)) (star (atom 3))))) #f)
요건 어떠신가요? |
|
| 위로 |
|
 |
이태영
가입: 2011년 9월 19일 올린 글: 34
|
올려짐: 2011년10월21일 20:35 주제: |
|
|
| 대략 2초 정도 걸리는 것 같습니다. |
|
| 위로 |
|
 |
|