Lisp Interpreter written in Perl

emacs に乗り換えたきっかけで、Lisp を覚えようと Perl で Lisp Interpreter を書いた話です。

p5-Lisp::Tiny: https://github.com/Code-Hex/p5-Lisp-Tiny
Parser の書き方: https://speakerdeck.com/codehex/perl-dezuo-ru-tiny-shell

1. 1FSM
   Ͱॻ͘
 -JTQ
   *OUFSQSFUFS :"1$5PLZP
   
   લ໷ࡇ
2. 8)0
   ".
   * +645
   461&3
   26*$,
3. !DPEFIFY
4. ͱͯ΋פ͍Ͱ͢Ͷ
5. ͱ͜ΖͰ
6. ΤσΟλ͸Կ͕޷͖Ͱ͔͢ʁ
9. ๻͸
10. 
11. λʔϛφϧͱΤσΟλը໘
 ߦ͖དྷ͢ΔͷʹർΕ͖ͯͨ
12. ͜Ε͸
13. ΤσΟλΛม͑Δͧ
14. .BD
    ͱಉ͡γϣʔτΧοτ͕ ࢖͑Δ
15. 
16. ͦ͏ɺFNBDT
    Ͱ͢ʂ
18. ͱɺݴ͍ͭͭ
19. WTDPEF
    
 FNBDT
    LFZ
    CJOEJOHT
20. ͜Ε͡Ό͋ͩΊͩʂʂ
21. FNBDT
    Λ࢖͍͜ͳͨ͢Ίʹ
22. -JTQ
    Λ͍֮͑ͨʂʂ
23. -JTQ
    JOUFSQSFUFS
    Λ
 ࡞֮ͬͯ͑Α͏ʂʂ
24. ܰ͘࡞ͬͨʂ
25. Q-JTQ5JOZ IUUQTHJUIVCDPN$PEF)FYQ-JTQ5JOZ
26. -JTQ
    1BSTFS $PNNPO
    -JTQ
    ͷύʔαʔΛॻ͘
27. -JTQ
    ͬͯͲΜͳه๏ʁ
28. MFU
    

    
    
    
    
    
    B
    
    C
    
    

    
    
    
    
    
    
    B
    C 
 ׅހ͕͍ͬͺ͍ʂʂ
29. &#/'
    ه๏ IUUQDVJVOJHFDIJTJCOG-*41#/'JOEFYIUNM
30. w T@FYQSFTTJPO
    
    BUPNJD@TZNCPM
    c
    
  
    T@FYQSFTTJPO
    T@FYQSFTTJPO
     
    c
    MJTU
    w MJTU
    
     
    T@FYQSFTTJPO
    \
    T@FYQSFTTJPO
    ^
     
    w BUPNJD@TZNCPM
    
    
 TQBDF
    c
    JEFOUJpFS
    c
    TUSJOH
    c
    OVNFSJD
31. -JTQ5JOZ1BSTFS IUUQTHJUIVCDPN$PEF)FYQ-JTQ5JOZCMPCNBTUFS MJC-JTQ5JOZ1BSTFSQN
32. ύʔαʔͷॻ͖ํ͸ˣ
33. ύʔεޙ
34. 7.
    ͷ࡞੒ -JTQ
    ͷ࣮ߦ෦෼Λ࡞੒
35. ͜ͷ
    -JTQ
    ͰͰ͖Δ͜ͱ
36. w άϩʔόϧม਺ఆٛ
    w ϩʔΧϧม਺ఆٛ
    w ࢛ଇԋࢉ
    w ग़ྗ
37. -JTQ5JOZ7. IUUQTHJUIVCDPN$PEF)FYQ-JTQ5JOZCMPCNBTUFS MJC-JTQ5JOZ7.QN
38. ม਺͔Β஋औΓग़͠
39. ϩʔΧϧม਺΁֨ೲ
40. ஞ࣍ॲཧΛߦͬͯ஋Λฦ͢
41. άϩʔόϧม਺΁֨ೲ
42. CVJMUJO
    ϧʔνϯͷݺͼग़͠
43. 3FQM
    ͷ࡞੒ 3FQM
    Λ࡞Δ
44. rDPEFIFY 5FSN3FBE-JOF
    Λ࢖͑͹͍͍ײ͡Ͱͨ͠
45. ׬੒
    
46. σϞ
47. ͜ΕͰ
    -JTQ
    Λ֮͑ΒΕͨʁ
48. ͋Δఔ౓ཧղͰ͖ͨɻ
49. QSJOU
    'JO