I hereby claim:
- I am alex-ilin on github.
- I am alexilin (https://keybase.io/alexilin) on keybase.
- I have a public key ASAnt7XgurD0YSBk1FyuVgR55Wbdqa5zQkVc1a7vOeMGPQo
To claim this, I am signing this object:
type SitAction = { Rest: int } | |
type StandAction = { Rest: int } | |
type Action = | |
| Stand of StandAction | |
| Sit of SitAction | |
let lastStandIndex (x: Action list) : int option = | |
try | |
x |> List.tryFindIndex (function | |
| Stand _ -> true |
I hereby claim:
To claim this, I am signing this object:
: first-column-width ( table model -- width ) | |
[ | |
[ font>> dup ] keep | |
renderer>> column-titles first cell-dim nip + | |
] dip | |
value>> dup sequence? [ | |
length 1 - unparse-short swapd cell-dim nip + max | |
] [ | |
make-mirror [ | |
! font prev key value |
: first-column-width ( table model -- width ) | |
value>> dup sequence? [ | |
length 1 - 1array | |
] [ | |
make-mirror keys | |
] if [ unparse-short ] map | |
over renderer>> column-titles first suffix | |
row-column-widths supremum ; | |
: <inspector-table> ( model -- table ) |
! Copyright (C) 2017 Alexander Ilin. | |
USING: accessors alien alien.c-types alien.libraries | |
alien.syntax classes.struct destructors kernel libc math | |
sequences strings windows windows.types ; | |
IN: ask | |
CONSTANT: OFN_OVERWRITEPROMPT 2 | |
STRUCT: OPENFILENAME |