Guest User

Untitled

a guest
Jan 15th, 2018
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 11.48 KB | None | 0 0
  1. (module 0
  2.     (def 1
  3.         (id 1 getNeighbourhood)
  4.         (formals_star_list 1
  5.             (id 1 i)
  6.             (id 1 width)
  7.             (id 1 height)
  8.             (id 1 pixels))
  9.         ()
  10.         (block 2
  11.             (stmt_list 2
  12.                 (assign 2
  13.                     (id 2 results)
  14.                     (list_display 0)))
  15.             (if 4
  16.                 (comparison 4
  17.                     (subscription 4
  18.                         (id 4 pixels)
  19.                         (binop 4
  20.                             (id 4 i)
  21.                             (id 0 +)
  22.                             (int_literal 4 1)))
  23.                     (id 0 !=)
  24.                     (int_literal 4 0))
  25.                 (stmt_list 4
  26.                     (stmt_list 4
  27.                         (call 4
  28.                             (attributeref 4
  29.                                 (id 4 results)
  30.                                 (id 4 append))
  31.                             (expr_list 4
  32.                                 (binop 4
  33.                                     (id 4 i)
  34.                                     (id 0 +)
  35.                                     (int_literal 4 1))))))
  36.                 ())
  37.             (if 5
  38.                 (comparison 5
  39.                     (subscription 5
  40.                         (id 5 pixels)
  41.                         (binop 5
  42.                             (id 5 i)
  43.                             (id 0 -)
  44.                             (int_literal 5 1)))
  45.                     (id 0 !=)
  46.                     (int_literal 5 0))
  47.                 (stmt_list 5
  48.                     (stmt_list 5
  49.                         (call 5
  50.                             (attributeref 5
  51.                                 (id 5 results)
  52.                                 (id 5 append))
  53.                             (expr_list 5
  54.                                 (binop 5
  55.                                     (id 5 i)
  56.                                     (id 0 -)
  57.                                     (int_literal 5 1))))))
  58.                 ())
  59.             (if 6
  60.                 (comparison 6
  61.                     (subscription 6
  62.                         (id 6 pixels)
  63.                         (binop 6
  64.                             (id 6 i)
  65.                             (id 0 -)
  66.                             (id 6 width)))
  67.                     (id 0 !=)
  68.                     (int_literal 6 0))
  69.                 (stmt_list 6
  70.                     (stmt_list 6
  71.                         (call 6
  72.                             (attributeref 6
  73.                                 (id 6 results)
  74.                                 (id 6 append))
  75.                             (expr_list 6
  76.                                 (binop 6
  77.                                     (id 6 i)
  78.                                     (id 0 -)
  79.                                     (id 6 width))))))
  80.                 ())
  81.             (if 7
  82.                 (comparison 7
  83.                     (subscription 7
  84.                         (id 7 pixels)
  85.                         (binop 7
  86.                             (id 7 i)
  87.                             (id 0 +)
  88.                             (id 7 width)))
  89.                     (id 0 !=)
  90.                     (int_literal 7 0))
  91.                 (stmt_list 7
  92.                     (stmt_list 7
  93.                         (call 7
  94.                             (attributeref 7
  95.                                 (id 7 results)
  96.                                 (id 7 append))
  97.                             (expr_list 7
  98.                                 (binop 7
  99.                                     (id 7 i)
  100.                                     (id 0 +)
  101.                                     (id 7 width))))))
  102.                 ())
  103.             (if 8
  104.                 (comparison 8
  105.                     (subscription 8
  106.                         (id 8 pixels)
  107.                         (binop 8
  108.                             (binop 8
  109.                                 (id 8 i)
  110.                                 (id 0 -)
  111.                                 (id 8 width))
  112.                             (id 0 +)
  113.                             (int_literal 8 1)))
  114.                     (id 0 !=)
  115.                     (int_literal 8 0))
  116.                 (stmt_list 8
  117.                     (stmt_list 8
  118.                         (call 8
  119.                             (attributeref 8
  120.                                 (id 8 results)
  121.                                 (id 8 append))
  122.                             (expr_list 8
  123.                                 (binop 8
  124.                                     (binop 8
  125.                                         (id 8 i)
  126.                                         (id 0 -)
  127.                                         (id 8 width))
  128.                                     (id 0 +)
  129.                                     (int_literal 8 1))))))
  130.                 ())
  131.             (if 9
  132.                 (comparison 9
  133.                     (subscription 9
  134.                         (id 9 pixels)
  135.                         (binop 9
  136.                             (binop 9
  137.                                 (id 9 i)
  138.                                 (id 0 +)
  139.                                 (id 9 width))
  140.                             (id 0 +)
  141.                             (int_literal 9 1)))
  142.                     (id 0 !=)
  143.                     (int_literal 9 0))
  144.                 (stmt_list 9
  145.                     (stmt_list 9
  146.                         (call 9
  147.                             (attributeref 9
  148.                                 (id 9 results)
  149.                                 (id 9 append))
  150.                             (expr_list 9
  151.                                 (binop 9
  152.                                     (binop 9
  153.                                         (id 9 i)
  154.                                         (id 0 +)
  155.                                         (id 9 width))
  156.                                     (id 0 +)
  157.                                     (int_literal 9 1))))))
  158.                 ())
  159.             (if 10
  160.                 (comparison 10
  161.                     (subscription 10
  162.                         (id 10 pixels)
  163.                         (binop 10
  164.                             (binop 10
  165.                                 (id 10 i)
  166.                                 (id 0 -)
  167.                                 (id 10 width))
  168.                             (id 0 -)
  169.                             (int_literal 10 1)))
  170.                     (id 0 !=)
  171.                     (int_literal 10 0))
  172.                 (stmt_list 10
  173.                     (stmt_list 10
  174.                         (call 10
  175.                             (attributeref 10
  176.                                 (id 10 results)
  177.                                 (id 10 append))
  178.                             (expr_list 10
  179.                                 (binop 10
  180.                                     (binop 10
  181.                                         (id 10 i)
  182.                                         (id 0 -)
  183.                                         (id 10 width))
  184.                                     (id 0 -)
  185.                                     (int_literal 10 1))))))
  186.                 ())
  187.             (if 11
  188.                 (comparison 11
  189.                     (subscription 11
  190.                         (id 11 pixels)
  191.                         (binop 11
  192.                             (binop 11
  193.                                 (id 11 i)
  194.                                 (id 0 +)
  195.                                 (id 11 width))
  196.                             (id 0 -)
  197.                             (int_literal 11 1)))
  198.                     (id 0 !=)
  199.                     (int_literal 11 0))
  200.                 (stmt_list 11
  201.                     (stmt_list 11
  202.                         (call 11
  203.                             (attributeref 11
  204.                                 (id 11 results)
  205.                                 (id 11 append))
  206.                             (expr_list 11
  207.                                 (binop 11
  208.                                     (binop 11
  209.                                         (id 11 i)
  210.                                         (id 0 +)
  211.                                         (id 11 width))
  212.                                     (id 0 -)
  213.                                     (int_literal 11 1))))))
  214.                 ())
  215.             (stmt_list 13
  216.                 (return 13
  217.                     (id 13 results)))))
  218.     (stmt_list 14
  219.         (assign 14
  220.             (id 14 now)
  221.             (call 14
  222.                 (attributeref 14
  223.                     (id 14 time)
  224.                     (id 14 time))
  225.                 (expr_list 0))))
  226.     (stmt_list 15
  227.         (assign 15
  228.             (id 15 captcha)
  229.             (call 15
  230.                 (attributeref 15
  231.                     (id 15 Image)
  232.                     (id 15 open))
  233.                 (expr_list 15
  234.                     (id 15 fileName)))))
  235.     (stmt_list 16
  236.         (assign 16
  237.             (target_list 16
  238.                 (id 16 width)
  239.                 (id 16 height))
  240.             (attributeref 16
  241.                 (id 16 captcha)
  242.                 (id 16 size))))
  243.     (stmt_list 17
  244.         (assign 17
  245.             (id 17 pixels)
  246.             (call 17
  247.                 (id 17 list)
  248.                 (expr_list 17
  249.                     (call 17
  250.                         (attributeref 17
  251.                             (id 17 captcha)
  252.                             (id 17 getdata))
  253.                         (expr_list 0))))))
  254.     (stmt_list 18
  255.         (assign 18
  256.             (id 18 i)
  257.             (int_literal 18 0)))
  258.     (for 19
  259.         (id 19 pixel)
  260.         (id 19 pixels)
  261.         (stmt_list 20
  262.             (if 20
  263.                 (comparison 20
  264.                     (id 20 pixel)
  265.                     (id 0 ==)
  266.                     (int_literal 20 2))
  267.                 (stmt_list 20
  268.                     (stmt_list 20
  269.                         (assign 20
  270.                             (subscription 20
  271.                                 (id 20 pixels)
  272.                                 (id 20 i))
  273.                             (int_literal 20 0))))
  274.                 ())
  275.             (stmt_list 22
  276.                 (assign 22
  277.                     (id 22 i)
  278.                     (binop 22
  279.                         (id 22 i)
  280.                         (id 0 +)
  281.                         (int_literal 22 1)))))
  282.         ())
  283.     (stmt_list 23
  284.         (assign 23
  285.             (id 23 toclean)
  286.             (list_display 0)))
  287.     (for 24
  288.         (id 24 i)
  289.         (call 24
  290.             (id 24 xrange)
  291.             (expr_list 24
  292.                 (call 24
  293.                     (id 24 len)
  294.                     (expr_list 24
  295.                         (id 24 pixels)))))
  296.         (stmt_list 25
  297.             (stmt_list 25
  298.                 (assign 25
  299.                     (id 25 neighbourhood)
  300.                     (call 25
  301.                         (id 25 getNeighbourhood)
  302.                         (expr_list 25
  303.                             (id 25 i)
  304.                             (id 25 width)
  305.                             (id 25 height)
  306.                             (id 25 pixels)))))
  307.             (if 26
  308.                 (comparison 26
  309.                     (call 26
  310.                         (id 26 len)
  311.                         (expr_list 26
  312.                             (id 26 neighbourhood)))
  313.                     (id 0 <)
  314.                     (int_literal 26 4))
  315.                 (stmt_list 26
  316.                     (stmt_list 26
  317.                         (assign 26
  318.                             (subscription 26
  319.                                 (id 26 pixels)
  320.                                 (id 26 i))
  321.                             (int_literal 26 0))))
  322.                 ()))
  323.         ()))
Add Comment
Please, Sign In to add comment