'잡동사니'에 해당되는 글 13156건

  1. 2013.01.17 중선관위 개표 시연회?
  2. 2013.01.17 lisp rem, mod
  3. 2013.01.17 lisp i/o
  4. 2013.01.17 lisp file i/o
  5. 2013.01.16 lisp savefun / load
  6. 2013.01.16 xlisp
  7. 2013.01.15 wkw광명체 광명납작체? 14
  8. 2013.01.15 rpm2cpio를 이용한 rpm 압축해제하기
  9. 2013.01.14 graphviz / neato
  10. 2013.01.14 lisp 연관리스트
이런 재미난 이벤트가 있는지도 몰랐네 -_-
아무튼 무효표 2000장 하는데 90장 비는데 문제없이 개표된걸로 시연하고
6000장 개표하는데 2시간 15분 걸렸다고 하는데 전국 개표소 수를 고려했을때
빨라야 새벽 2시 즈음에나 결과가 나올수 있다는 내용도 있고
선관위에서도 30일간만 투표용지 보관한다는 이야기도 있고..

참내..
예전 선관위 홈페이지에 30일 이후에는 선관위 규칙에 의해서 처리한다고 되어 있고,
30일 이내에 선거무효소송을 통해 할수 있다고 해서
최소 30일 이상은 보관할거라고 생각을 했는데...
정말 30일 뒤에 바로 없애려고 한다니..
최소한 임기 끝날때 까지는 보존해야 하는거 아닌가?


선관위 측은 이에 대해 "만약에 선관위가 부정한 의도로 지시를 했다면 그런 증언이 있었을 것"이라며 "(투표지)보관은 잘 돼있다. 원래 투표종료 한 달 후에는 절차를 거쳐 폐기하지만 그 절차를 생략하고 보관하고 있겠다. 우리도 투표지를 보여드릴 기회가 있으면 좋겠다"고 말했다.

[링크 : http://media.daum.net/politics/others/newsview?newsid=20130117180211461

Posted by 구차니
Programming/lisp2013. 1. 17. 19:26
reminder 나 modulo 나 둘다 나머지 연산인데
왜 굳이 두개의 이름으로 별도로 존재하나 했더니

양수에서는 차이가 없으나, 음수에서 차이가 발생한다.
2> (mod  5 2) 
1             
2> (mod  5 -2)
-1            
2> (rem  5 2) 
1             
2> (rem  5 -2)
1              


    Rem(x, 5):

                       5+         o         o
                        |       /         /
                        |     /         /
                        |   /         /
                        | /         /
    *---------*---------*---------*---------*
   -10      / -5      / 0         5        10
          /         /   |
        /         /     |
      /         /       |
    o         o       -5+

    Mod(x, 5):

              o        5o         o         o
            /         / |       /         /
          /         /   |     /         /
        /         /     |   /         /
      /         /       | /         /
    *---------*---------*---------*---------*
   -10        -5        0         5        10

    Rem(x, -5):

                       5+         o         o
                        |       /         /
                        |     /         /
                        |   /         /
                        | /         /
    *---------*---------*---------*---------*
   -10      / -5      / 0         5        10
          /         /   |
        /         /     |
      /         /       |
    o         o       -5+

    Mod(x, -5):

    *---------*---------*---------*---------*
   -10      / -5      / 0       / 5       /10
          /         /   |     /         /
        /         /     |   /         /
      /         /       | /         /
    o         o       -5o         o
 
[링크 : http://mathforum.org/library/drmath/view/54377.html

'Programming > lisp' 카테고리의 다른 글

xlisp에서 incf 오류  (0) 2013.01.19
lisp backquote / 유사인용  (0) 2013.01.19
lisp i/o  (0) 2013.01.17
lisp file i/o  (0) 2013.01.17
lisp savefun / load  (0) 2013.01.16
Posted by 구차니
Programming/lisp2013. 1. 17. 18:53
c언어로 치면 printf() 와 scanf()인데
어짜피 stream 이기 때문에 file을 열어 놓은 스트림을
read나 printf 계열 함수에 연결해서 써도 문제는 없을듯 하니
c언어 보다 더욱 범용성이 있어 보인다고 해야하나
c보다는 리눅스의 FMIO(File Mapped IO)에 가까운 느낌이라고 해야하나?

read an expression
(read [<stream> [<eofp> [<eof> [<rflag>]]]])

print an expression on a new line
(print <expr> [<stream>])

print an expression
(prin1 <expr> [<stream>])

print an expression without quoting
(princ <expr> [<stream>])

pretty print an expression
(pprint <expr> [<stream>])

print to a string
(prin1-to-string <expr>)
(princ-to-string <expr>) 

> (print "test string") 
"test string"           
"test string"           
> (print '(test string))
(test string)           
(test string)            
 
> (princ "test string") 
test string             
"test string"           
> (princ '(test string))
(test string)           
(test string)           

> (prin1 "test string") 
"test string"           
"test string"           
> (prin1 '(test string))
(test string)           
(test string)           

'Programming > lisp' 카테고리의 다른 글

lisp backquote / 유사인용  (0) 2013.01.19
lisp rem, mod  (0) 2013.01.17
lisp file i/o  (0) 2013.01.17
lisp savefun / load  (0) 2013.01.16
xlisp  (0) 2013.01.16
Posted by 구차니
Programming/lisp2013. 1. 17. 18:50
C언어로 치면 feopn() / fclose() / fseek() / fread()

xlisp.exe의 경로에 생성됨.
ubuntu의 clisp는 실행된 "현재경로"에 생성됨.
> (setq out-stream (open "my-temp-file"))                    
error: file does not exist - "my-temp-file"                  
1> (setq out-stream (open "my-temp-file" :direction :output))
#<Character-Output-Stream 4:"my-temp-file">                  
1> (close out-stream)                                        
t                                                            
1> (setq out-stream (open "my-temp-file"))                   
#<Character-Input-Stream 4:"my-temp-file">                   
1> (close out-stream)                                        
t                                                            
1>                                                            

[링크 : http://psg.com/~dlamkins/sl/chapter03-11.html]

open a file stream
(open <fname> &key :direction :element-type :if-exists :if-does-not-exist)

close a file stream
(close <stream>)

check for existance of a file
(probe-file <fname>)

delete a file
(delete-file <fname>)

get length of file
(file-length <stream>)

get or set file position
(file-position <stream> [<expr>])

read a byte from a stream
(read-byte <stream>[<eofp>[<eof>]])

write a byte to a stream
(write-byte <byte> <stream>)

'Programming > lisp' 카테고리의 다른 글

lisp rem, mod  (0) 2013.01.17
lisp i/o  (0) 2013.01.17
lisp savefun / load  (0) 2013.01.16
xlisp  (0) 2013.01.16
lisp 연관리스트  (0) 2013.01.14
Posted by 구차니
Programming/lisp2013. 1. 16. 22:05
xlisp의 경우 실행파일 위치가 XLPATH 인듯 하고
해당 위치에 자동으로 *.lsp 파일을 읽거나 저장한다.

load a source file
(load <fname> &key :verbose :print)

An implicit errset exists in this function so that if error occurs during loading, and *breakenable* is NIL, then the error message will be printed and NIL will be returned.  The OS environmental variable XLPATH is used as a search path for files in this function.  If the filename does not contain path separators ('/' for UNIX, and either '/' or '\' for MS-DOS) and XLPATH is defined, then each pathname in XLPATH is tried in turn until a matching file is found.  If no file is found, then one last attempt is made in the current directory.  The pathnames are separated by either a space or semicolon, and a trailing path separator character is optional.

<fname> the filename string, symbol, or a file stream created with open. The extension "lsp" is assumed.
:verbose the verbose flag (default is T)
:print the print flag (default is NIL)
returns T if successful, else NIL 

save function to a file
(savefun <fcn>)

defined in init.lsp

<fcn> function name (saves it to file of same name, with extension ".lsp")
returns T if successful  


사용예
> (defun add (a b) (+ a b))
add                        
> (savefun add)            
"ADD.lsp"                   

> (load "add")        
; loading "add.lsp"    
t                      
> (add 2 3)           
5                      
> #'add               
#<Closure-ADD: #9b92b0> 

'Programming > lisp' 카테고리의 다른 글

lisp i/o  (0) 2013.01.17
lisp file i/o  (0) 2013.01.17
xlisp  (0) 2013.01.16
lisp 연관리스트  (0) 2013.01.14
lisp의 con cell 과 NIL  (0) 2013.01.14
Posted by 구차니
Programming/lisp2013. 1. 16. 21:44
xlisp에서 하다보면

1>
2>

이런식으로 숫자가 에러가 날때마다 늘어나는데
무언지 어떻게 줄이는지 몰라서 찾다보니
xlisp 도움말에 다음과 같은 내용이 있었다.

ctrl-c나 ctrl-g를 통해서 한단계 위로 간다고 해도
setq 등을 통해서 선언한 변수는 그대로 살아있다.

XLISP then issues the following prompt (unless standard input has been redirected):

>

This indicates that XLISP is waiting for an expression to be typed.  If the current package is other than user, the the package name is printed before the ">".

When a complete expression has been entered, XLISP attempts to evaluate that expression. If the expression evaluates successfully, XLISP prints the result and then returns for another expression.

The following control characters can be used while XLISP is waiting for input:


Backspace delete last character
Del delete last character
tab tabs over (treated as space by XLISP reader)
ctrl-C goto top level
ctrl-G cleanup and return one level
ctrl-Z end of file (returns one level or exits program)
ctrl-P proceed (continue)
ctrl-T print information 

> (_)                                           
error: unbound function - _                     
if continued: try evaluating symbol again       
1>                                              ctrl-P
[ continue from break loop ]                    
error: unbound function - _                     
if continued: try evaluating symbol again       
1>                                              ctrl-T
[ Free: 7422, Total: 152117, GC calls: 2,       
  Edepth: 31183, Adepth 41579, Sdepth: 999588 ] 
                                                 ctrl-G
[ back to previous break level ]                
>                                                

> (_)                                     
error: unbound function - _               
if continued: try evaluating symbol again 
1>                                             ctrl-C 
[ back to top level ]
>                                          

'Programming > lisp' 카테고리의 다른 글

lisp file i/o  (0) 2013.01.17
lisp savefun / load  (0) 2013.01.16
lisp 연관리스트  (0) 2013.01.14
lisp의 con cell 과 NIL  (0) 2013.01.14
lisp #  (0) 2013.01.11
Posted by 구차니
항상 그러하듯 뜬금없이 터지는 이넘의 북한폰트 이야기는 참 징글징글 한데
다르게 이야기 하면, 태어날때 부터 장님인 사람에게 저게 코끼리다! 라는 소리를 들으면
어떤 생각을 할 수 있을까?

저게 설명 광명체라고 하더라도
그걸 인지하려면 최소한 그러한 폰트가 있다는 것을 알아야 하고
그러한 폰트라는걸 증명하기 위해서는 그러한 폰트를 소유하고 있어야 한다.

다르게 말하면 그걸 알아서 말한다고 하는것 자체가
그러한 폰트의 존재를 알고 있었다는 사실의 반증이라는 것.

일반인들에게 광명체를 아세요? 라고 물으면
그게 먼데요? 라고 하지 북한 폰트!!!! 라고 대답할수 있는 사람이 이번 사건이 없었다면 얼마나 알았을까?


[링크 : http://www.dailian.co.kr/%5C./news/news_view.htm?id=322360.]


[링크: http://www.ilbe.com/642757145] << 내가 이동네 링크를 걸어놔야 하나?!

그나저나 wkw광명 이라던가 영어라 kwang ttf 이런식으로 구글링해도 안나오는것 봐서는
정말 북한 내부 망을 통해서 받았거나, 다른 루트로 얻은거 같은데

붉은별 OS의 경우에도
"광명체" 이지 "wkw광명"이나 "광명납작체가 아니고
"천리마", "청봉", "광명", "붓글" 네가지의 폰트가 들어있다고 한다.
그나마 토런토로 붉은별 OS를 받을수 있어서 일반인이 접근 가능한게 광명체 정도라면

도.대.체
wkw광명 이라는 폰트와 광명납작체 라던가 이런 폰트를
이 의혹을 제기한 인간들은 어떻게 알아내고 획득했을까? 


[링크 : http://kldp.org/node/117684]
Posted by 구차니
Linux/Ubuntu2013. 1. 15. 09:18

$ sudo apt-get install rpm2cpio 
$ rpm2cpio [rpm 파일 이름] | cpio -idv
[링크 : http://bs-secretroom.blogspot.kr/2012/10/rpm.html

2009/11/04 - [Linux] - 설치하지 않은 rpm에 포함된 파일의 내용 보기

Posted by 구차니
svn 에서 revision tree를 그리던 녀석인데
lisp 공부하다 보니 이 라이브러리가 의외로 막강하고 단순하다는 사실에 깜짝 놀라는중

$ sudo apt-get install graphviz
$ cat test.dot
digraph {
        a->b;
}
$ neato -Tpng -O test.dot 

 
 

'프로그램 사용 > graphviz' 카테고리의 다른 글

graphviz 출력 포맷  (0) 2013.02.14
Posted by 구차니
Programming/lisp2013. 1. 14. 23:15
associative memory의 줄임말이려나?
아무튼 굳이 NIL로 끝나지 않는 리스트로 하지 않아도 상관은 없지만
(assoc '찾을값 찾을목록)
식으로 사용하면 된다. 하지만 linked list를 이용해서 검색하는 것으로 
성능상의 하락이 있으므로 해싱을 이용하는 등, 다른방법을 강구하는 것이 좋다고 한다.

(setq tt '((bill . double)
            (lisa . coffee)
            (john . latte)))
((BILL . DOUBLE) (LISA . COFFEE) (JOHN . LATTE))
> (assoc 'lisa tt)
(LIST . COFFEE)

(setq ta '((bill double)
            (lisa coffee)
            (john latte)))
((BILL DOUBLE) (LISA COFFEE) (JOHN LATTE))
> (assoc 'lisa ta)
(LIST . COFFEE)


'Programming > lisp' 카테고리의 다른 글

lisp savefun / load  (0) 2013.01.16
xlisp  (0) 2013.01.16
lisp의 con cell 과 NIL  (0) 2013.01.14
lisp #  (0) 2013.01.11
만들면서 배우는 리스프 프로그래밍  (2) 2013.01.09
Posted by 구차니