[過去ログ] プログラミングのお題スレ Part15 (1002レス)
前次1-
抽出解除 レス栞

このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
989
(2): 2019/11/16(土)09:39 ID:R3eXoa4h(2/2) AAS
>>988
URL訂正: 外部リンク[html]:www.cs.cmu.edu
991: 2019/11/16(土)13:01 ID:9Ne+J8hx(1) AAS
>>988-989 PowerShell
$Words = ([RegEx]"\w+").Matches((Invoke-WebRequest '外部リンク:www.cs.cmu.edu | Select-Object -ExpandProperty 'Value' | Sort-Object -Unique
'on', 'we' | %{ "'$_' => ['$($Words -cmatch "^$_.*$" -join ''', ''')']" }
--
'on' => ['on', 'once', 'one', 'only']
'we' => ['well', 'went', 'were']
999: 2019/11/21(木)17:12 ID:x85mexbT(1) AAS
>>988-989 Squeak Smalltalk。関数で。

| contents words fn |
contents := (HTTPClient httpGet: '外部リンク:www.cs.cmu.edu contents.
words := (contents replaceAll: Character lf with: Character space; asTextFromHtml) asString subStrings: ' !"''()*,-.:;?`'.
words := words asSet asSortedArray.

fn := [:in | words select: [:word | word beginsWith: in]].
fn value: 'on'. "=> #('on' 'once' 'one' 'only') "
fn value: 'we'. "=> #('well' 'went' 'were') "

"for Pharo => 外部リンク:ws.stfx.eu "
前次1-
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル

ぬこの手 ぬこTOP 0.031s