steve
/
factor-work
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.ranges -> ranges

master
Steve Ayerhart 2022-01-24 08:10:12 -05:00
parent 56849e75f4
commit 96c16902f1
No known key found for this signature in database
GPG Key ID: 5C815FDF3A00B8BA
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bonerbonerboner/services/mississippis/mississippis.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2020 . ! Copyright (C) 2020 .
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel math math.ranges math.order math.parser math.functions arrays sequences sequences.extras threads calendar io timers accessors random formatting combinators combinators.random http.server.responses regexp unicode peg peg.parsers assocs db.types db.tuples ; USING: kernel math math.order math.parser math.functions ranges arrays sequences sequences.extras threads calendar io timers accessors random formatting combinators combinators.random http.server.responses regexp unicode peg peg.parsers assocs db.types db.tuples ;
USING: bonerbonerboner.services ; USING: bonerbonerboner.services ;
FROM: bonerbonerboner.services.slack => slack-lookup-user say-slack ; FROM: bonerbonerboner.services.slack => slack-lookup-user say-slack ;
@ -76,7 +76,7 @@ mississippis "mississippis"
"GO!" announce ; "GO!" announce ;
: announce-standard-mississippis ( terminal -- ) : announce-standard-mississippis ( terminal -- )
[1,b] [ standard-mississippi-duration sleep announce-sip ] each ; [1..b] [ standard-mississippi-duration sleep announce-sip ] each ;
:: announce-nonstandard-mississippi ( terminal sip -- ) :: announce-nonstandard-mississippi ( terminal sip -- )
{ {
@ -89,7 +89,7 @@ mississippis "mississippis"
: announce-nonstandard-mississippis ( terminal -- ) : announce-nonstandard-mississippis ( terminal -- )
[ [
[ dup <array> ] [ 1 - [1,b] ] bi [ dup <array> ] [ 1 - [1..b] ] bi
[ nonstandard-mississippi-wait announce-nonstandard-mississippi ] 2each [ nonstandard-mississippi-wait announce-nonstandard-mississippi ] 2each
] ]
[ announce-sip ] bi ; [ announce-sip ] bi ;