def either(fl):
'''The application of fl to e if e is a Left value,
...
100 KB (13,869 words) - 12:20, 26 November 2023
Case $GUI_EVENT_CLOSE ; When an user closes the windows
#include <FL/Fl.H>
...
131 KB (16,456 words) - 16:23, 3 April 2024
// Notice the CompareEarners; We're telling std::set to user our specified comparison mechanism
\ The C library has QSORT that hides iteration, but user-written code very rarely uses this technique, and doesn't in the TopRank ex
...
269 KB (31,387 words) - 07:47, 22 June 2024
By Average-user.
<syntaxhighlight lang="parigp">{floyd(m)=my(lastrow_a,lastrow_e,lastrow_len=m,fl,idx);
...
182 KB (17,804 words) - 06:19, 3 June 2024
#:user.Vector{:x 5, :y 5, :z -7}
#:user.Vector{:x -267, :y 204, :z -3}</PRE>
...
159 KB (23,970 words) - 19:13, 13 June 2024
a user instance of Ada.Numerics.Generic_Complex_Arrays.
CL-USER> (mapc (lambda (c) (format t "~&~6F~6@Fi = ~6Fe^~6@Fipi"
...
159 KB (19,443 words) - 14:22, 29 February 2024
let fL g=let n=set[0L..g-1L] in Seq.find(fun x->set(fG x g)=n) (fN g)
[2L..16L]|>List.iter(fun n->let g=fL n in printfn "Base %d: %s² -> %s" n (toS (int64(sqrt(float g))) n) (toS g n
...
192 KB (22,113 words) - 11:16, 17 April 2024
prefs = fl[[female]];
AllTrue[otherf, CheckStabilityHelp[male, #, ml, fl, pairing] &]
...
344 KB (47,154 words) - 16:10, 9 February 2024
user@host $ ./isnumber
user@host $ ./isnumber
...
168 KB (21,412 words) - 10:39, 20 June 2024
User Kaimbridge clarified on the Talk page:
<pre>CL-
USER> (format t "~%The distance between BNA and LAX is about ~$ km.~%"
...
142 KB (17,780 words) - 11:01, 9 December 2023
$ hopper fl/evento.flw
(expand-user-path fp)))
...
72 KB (8,615 words) - 11:10, 12 December 2023
w, fl = (names.index(who),
for f in fl:
...
190 KB (25,120 words) - 23:59, 23 June 2024
fl := d * 11
if p%fl == 0 {
...
331 KB (23,739 words) - 21:08, 5 June 2024
<syntaxhighlight lang="autohotkey">; --> Prompt the user to select the file being read
READLN fl$ FROM fh
...
130 KB (16,532 words) - 10:17, 16 June 2024
} namespace fl = functional_list;
using val_t = fl::at_t<L, current>;
...
419 KB (53,387 words) - 20:41, 24 June 2024
User-defined implementations of the same would be considerably slower. Nonethele
const either = (fl, fr, e) =>
...
256 KB (32,160 words) - 19:38, 6 June 2024
Atari 8-bit computer is able to show only 40 characters per line. The user has to press left/right arrow keys to scroll the content of whole text.
; == let the user select the alignment for every column
...
495 KB (60,212 words) - 20:42, 14 June 2024
CL-USER> (last (loop for i from 1 to 1000
...::t->match bigint.ModPow(a,d,n) with g when g=1I || g=n-1I->fG n d r t |g->fL(bigint.ModPow(g,2I,n)) n d t r
...
271 KB (30,218 words) - 16:12, 3 January 2024
The program should continue forever (until it is aborted by the
user) calculating and outputting each decimal digit in succession.
<pre>CL-
USER> (pi-spigot)
...
246 KB (24,981 words) - 02:51, 26 June 2024
let fL n g=let mutable vn,vg,v=n(),g(),None
let humble = seq{yield 1UL;yield! fE(fL (fN 7UL) (fun()->fL (fN 5UL) (fun()->fL (fN 3UL) (fun()->fN 2UL))))}
...
252 KB (22,657 words) - 10:36, 10 December 2023
