flvector-to-coordinates-string.rkt

#lang racket

(require racket/flonum)

(define (xy->string x y)
  (string-append
   (~r x #:precision 1) ","
   (~r y #:precision 1)))

(define (xy-vectors->string x-vec y-vec)
  (for/fold ((coordinates "")
             (separator "")
             #:result coordinates)
            ((x (in-flvector x-vec))
             (y (in-flvector y-vec)))
    (values (string-append
             coordinates
             separator
             (xy->string x y))
            " ")))

(require profile-flame-graph)

(profile
    (let
        ((x (make-flvector 100000))
         (y (make-flvector 100000)))
      (xy-vectors->string x y))
    #:svg-path "profile.svg"
    #:preview? #t)