Advertisement
IcaroPeretti

racket

Apr 28th, 2022 (edited)
574
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.38 KB | None
  1. #lang racket
  2.  
  3. (require db)
  4. (define SQLite
  5.   (sqlite3-connect #:database "C:/Users/Icaro/Documents/faculdade/prolog/trabalho1/db/worldcup.db")
  6. )
  7.  
  8. (define teams (query-list SQLite "select name from teams"))
  9.  
  10.  
  11. (define teams-list (map (lambda (team)
  12.                                     (display (~a team "\n"))) teams))
  13.  
  14. (for ([ i teams])
  15. (display (~a "o valor de: " i "\n"))
  16. )
  17.  
Advertisement
RAW Paste Data Copied
Advertisement