gistfile1.scm

#lang racket
(define (intersect-line-segment L point1 point2)
  (if (<= (* (+ (* (car L) (car point1))(* (cadr L) (cadr point1))(caddr L))(+ (* (car L) (car point2))(* (cadr L) (cadr point2))                (caddr L))) 0)
  #t
  #f))
             
 
(define (intersect-line-pol P L)  
  (define (iter pred P)
    (if (empty? P)
        "не пересекает"
        (if (intersect-line-segment L pred (car P))
            "пересекает"
            (iter (car P) (cdr P)))))
  (iter (car P) (cdr P)))