Anyone notice non-obvious Wayland road blocks?
I think the last thing keeping me on X11 is window shade.
This is not my own project!
I have trouble with both, but more experience with GIMP. I can't stand all the little tool buttons with no text. I want the name of each tool always visible on its button.
I have the same problem with Inkscape.
Difference of Squares
USING: kernel math math.statistics ranges sequences ;
: difference-of-squares ( n -- n' )
[1..b] [ sum sq ] [ sum-of-squares ] bi - abs ;
Scrabble Score, 3.5
USING: assocs.extras kernel literals make sequences unicode ;
CONSTANT: charscores $[
[
"AEIOULNRST" [ 1 swap ,, ] each
"DG" [ 2 swap ,, ] each
"BCMP" [ 3 swap ,, ] each
"FHVWY" [ 4 swap ,, ] each
"K" [ 5 swap ,, ] each
"JX" [ 8 swap ,, ] each
"QZ" [ 10 swap ,, ] each
] H{ } make
]
: scrabble-score ( str -- n )
charscores swap >upper values-of sum ;
Scrabble Score, a third time
USING: assocs.extras kernel make sequences unicode ;
: scrabble-score ( str -- n )
>upper
[
"AEIOULNRST" [ 1 swap ,, ] each
"DG" [ 2 swap ,, ] each
"BCMP" [ 3 swap ,, ] each
"FHVWY" [ 4 swap ,, ] each
"K" [ 5 swap ,, ] each
"JX" [ 8 swap ,, ] each
"QZ" [ 10 swap ,, ] each
] H{ } make
swap values-of sum ;
Scrabble Score, again
USING: combinators kernel sequences sets unicode ;
MEMO: char>score ( char -- n )
{
{ [ dup "AEIOULNRST" in? ] [ 1 ] }
{ [ dup "DG" in? ] [ 2 ] }
{ [ dup "BCMP" in? ] [ 3 ] }
{ [ dup "FHVWY" in? ] [ 4 ] }
{ [ dup "K" in? ] [ 5 ] }
{ [ dup "JX" in? ] [ 8 ] }
{ [ dup "QZ" in? ] [ 10 ] }
} cond nip ;
: scrabble-score ( str -- n )
>upper [ char>score ] map-sum ;
Scrabble Score
USING: assocs kernel sequences sets unicode ;
MEMO: char>score ( char -- n )
{
{ 1 "AEIOULNRST" } { 2 "DG" }
{ 3 "BCMP" } { 4 "FHVWY" }
{ 5 "K" } { 8 "JX" } { 10 "QZ" }
} [ nip dupd in? ] assoc-find 2drop nip ;
: scrabble-score ( str -- n )
>upper [ char>score ] map-sum ;
Who or what?
Ok next time I won't use your computer.
I don't know what I should be noticing there. I can't see any text for the tool buttons along the left edge of the window.