[過去ログ] プログラミングのお題スレ 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