{"body":"$ perl6 -MRed -e '\r\nmodel Person { ... }\r\nmodel Track {\r\n   has UInt $!id is serial;\r\n   has UInt $!person-id is referencing{ Person.name };\r\n   has Person $.person is relationship{ .person-id };\r\n   has Instant $.time is column;\r\n}\r\nmodel Person {\r\n   has Str $.name is id;\r\n   has Track @.tracks is relationship{ .person-id }\r\n\r\n   method total {\r\n      @!tracks.sort(*.time).map(*.time).batch(2).map({ .[1] - .[0] }).sum\r\n   }\r\n}\r\n\r\n\r\nmy $*RED-DB = database \"SQLite\";\r\n\r\nPerson.^create-table;\r\nTrack.^create-table;\r\n#my $*RED-DEBUG = True;\r\nmy \\fernando = Person.^create: :name<Fernando>;\r\nfernando.tracks.create: :time(now - 2000);\r\nfernando.tracks.create: :time(now - 1000);\r\nfernando.tracks.create: :time(now - 500);\r\nfernando.tracks.create: :time(now);\r\n\r\n\r\nsay fernando.total\r\n\r\n'\r\n1500.021592308574","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/0Y60FiGe","modified":1552569541,"id":"0Y60FiGe","size":807,"lines":34,"own_paste":false,"theme":"","date":1552564405}